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MICROSOFT FORTRAN-80 USER'S REFERENCE GUIDE 
FOR THE OSBORNE 1 PERSONAL COMPUTER 


OVERVIEW 


This documentation package has been prepared to guide existing 
Osborne l users in designing, compiling, debugging, linking, and 
running FORTRAN-80 programs. The package comprises three distinct 
manuals: 


FORTRAN-80 User's Manual- provides a summary of user 
commands and syntax, describes the FORTRAN-80 compiler 
commands and error messages, and describes the use of 
LINK-80 linking loader. Program development, conpile, 
link, and run examples are also provided in this 
manual to familiarize new users with FORTRAN-8@0O. 


FORTRAN-80 Reference Manual- provides an #2xtensive 
description of FORTRAN-80 statements, functions and 
syntax. 


FORTRAN-80 Utility Manual- describes the use of the 
MACRO-80 assembler and LIB-80 library manager with the 
FORTRAN-80 compiler. 


An overview index is provided to guide the user through the 
contents of the three manuals, based on the commonly needed 
information you may require on an operational basis. Each manual 
has its own individual table of contents and detailed index to 
allow the user to track into detailed points of interest. Note 
that the page numbers for the package aS a whole appear on the 
bottom of each page while the page numbers relevant to each 
individual manual are shown in the upper right hand corner. 


In order to gain familiarity with the FORTRAN-80 software, two 
different approaches are recommended, depending on your 
background and experience. 


Existing Fortran USers. FORTRAN-80 consists of a subset of ANS: 
standard FORTRAN IV per X.39-1966, incorporating most of tn» 
functions, statements, and conventions provided in the standar.a 
with a few additional extensions to improve overall capabilities. 
These are described in detail in the FORTRAN-80 Reference Manual. 
It 1S Suggested that you first review this manual to determin: 
the relevant differences between the Fortran you have used vetcc 
and FORTRAN-80 (See Appendix A). The User Manual provides "7: 
operational and system commands necessary to use the complier, 
linker, and run commands on the Osborne l. A Summary of FORTRAN 
statements, syntax and rules, along with the error cod» 
descriptions in this manual will provide quick reference. 
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New Fortran USers. AS a new Fortran user, it will help if you 
nave already been exposed to programming in another language 
before attempting to use FORTRAN-80. Prior programming experience 
ln a BASIC language would be the most helpful, since BASIC 
languages were initially developed using many Fortran statements 
as a basis. While BASIC is adept at manipulating characters and 
Strings and performing input/output functions, Fortran is 
primarily designed to perform scientifically-oriented problem 
solving involving extensive calculation capability. Provided you 
have prior experience in BASIC, FORTRAN-80 can be easily learned 
by first studying the Reference Manual and User's Manual Section 
l. A few hours of experience uSing FORTRAN-80 and by refering to 
the manuals, you will very quickly become adept at using FORTRAN- 
80. You may also wish to acquire one of the "do it yourself" 
Fortran learning books available. These can be found at 
bookstores or your local library, and provide good reference 
material, including sample problems and exercises to guide you in 
the learning process. It must be recognized, however, that these 
books will not reflect the full FORTRAN-80 capabilities, andit is 
Lmportant to determine whether any book you may select covers 
ANSI 1966 standard FORTRAN (Similar to FORTRAN-80) and rot one of 
the other standards, such as FORTRAN V or FORTRAN-77. ‘vsti le these 
are similar, the 1966 standard would be best. 


If you have not yet been exposed to programming, it would be w:se 
to learn BASIC first, before attempting to learn Fortran. This is 
because program statements in Basic rely more on plain english 
than specialized syntax. Once you have written a few programs in 
Basic you will be ready to learn Fortran by follvwirj the 
previousprocedures for new Fortran users. 


Running Existing Fortran Programs. Existing programs can be rin 
provided they adhere to FORTRAN-80 syntax and corventions., 
Programs in FORTRAN-80 source or object code will run sirect.,. 
These can be run by referring to the USer's Manual. Fortrar-45" 


source code programs can be adapted to FORTRAN-80 easiiy. f° 
recommended that these programs be compiled, ten ugqge: 
resolving any error messages, Linked and ran wsing 


information in the User and Reference Manuals (S@e Referenc 
Manual Appendix A). 


Programs written in other Fortran varients, such as Fortran- 


can be adapted provided you have source code. The extent 9f t5 
required revisions will be dependent on the program design. se 
Reference Manual Appendix A for a summary of the majotr 


differences between FORTRAN-80 and other FORTRANS. 


It is suggested that you review the Reference Manual in detail t> 
determine the extent of modification necessary. The program <a 
then be adapted to comply with FORTRAN-80, linked and run per "n> 


FORTRAN-80 User's Reference Guide Overview Page 3 


information in the User's Manual. While the Reference Manual 
attempts to note some of the major differences between FORTRAN-80 
and other Fortran types, it is not intended to be an exhaustive 
discussion of language differences. The user should therefore be 
prepared to research the differences between his program and 
FORTRAN-80 in detail to minimize the debugging task. This will be 
aided by referencing the statement summary table in the User's 
Manual. Reference to detailed information can be made through the 
accompanying indices provided in each manual. 


Your FORTRAN-80 Distribution Diskettes. 


You have received two diskettes from the Osborne Computer Corp. 
Diskette number one contains the following files: 


File Description 

AUTOST. COM A file providing auto-start capability. 
F80 .COM The FORTRAN-80 compiler. 

L80 . COM The LINK-80 Linking Loader. 

FORLIB.REL The Portran relocatable library. 

CREF80 .COM The Cross-Reference Facility. 


The Fortran compiler and linking loader are discussed in the 
Oser's Manual. Contents of the Fortran library are discussed in 
the Reference Manual, and the Cross-Reference Facility 1s covered 
in the Utility Reference Manual. 


Diskette number two contains the following files: 


File Description 

M80 .COM The MACRO-80 Assembly Language. 

LIB80 .COM The LIB-80 Assembly Library. 

INIT .MAC 

FCHAIN.MAC These are MACRO-80 assembly language files 
CPMIO.MAC providing utility routines useable with 
IOINIT.MAC > user-written MACRO-80 programs. They are 
LPTDRV.MAC included for enlightened programmers only- 
LUNTB .MAC and are unsupported by both Osborne 
DSKDRV.MAC Computer Corp. and Microsoft. 

OTBF .MAC 


MACRO-80 and LIB-80 are discussed in detail in relevant sections 
of the Utility Reference Manual. 
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SECTION 1 


FORTRAN-80 Overview 


For all its speed and power, a computer cannot perform its 
functions alone. It must be told exactly what to do and ina 
language it can understand. The instructions that a machine 
can perform are called machine instructions. Writing 
programs 1n machine language has many disadvantages. Besides 
being very tedious, 1t 1S computer-oriented and requires 
that a programmer be familiar with the internal organization 
of the computer being used. Hence, languages were developed 
that were machine independent, required little knowledge of 
the internal workings of the computer, and were problem- 
Oriented. These ‘high level' languages resemble as nearly as 
possible the humanly-used languages that would be used to 
solve problems. FORTRAN 1s an acronym derived from the words 
FORmula TRANSlation. 


FORTRAN was developed to provide an efficient means of 
performing mathematical formulas. FORTRAN allows a 
mathmatical formula to be represented by a single, closely 
analogous program instruction. The mathmatical formula 
A=1/2h(b+c), is written in FORTRAN as follows: A=zH*(B+C)/2. 
This single program instruction is called a FORTRAN 
Statement. A collection of appropriate FORTRAN statements 
grouped ina file or group of files 1s called a FORTRAN 
program. 


Although it is easier to write programs in FORTRAN than 
machine language, the computer cannot execute instructions 
unless they are in machine language. A compiler is a special 
program that translates each FORTRAN statement into machine 
instructions needed to perform the instruction. Before 
translating a FORTRAN statement, the compiler checks the 
Statement to see if all the rules of the FORTRAN language 
have been followed. If any error has been made, the compiler 
does not generate the machine language instructions for the 
statement, but instead continues to check the remaining 
FORTRAN statements. Error codes are generated if any 
descrepancies in the statement coding are observed. The set 
of all FORTRAN language instructions to perform a specific 
task are called the source program. When the FORTRAN source 
code has been compiled without language errors, a new 
program, called the object program, has been generated that 
is the machine language equivalent of the source program. 
Once object code is generated, the program can be loaded and 
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linked. Loading means physically placing the relocatable 
(REL) file in memory and assigning absolute addresses to the 
code and data in place of relative addresses. Linking is te 
process whereby the file containing the obtect code is 
linked to any other outside programs through labels or 
Subroutine calls (i.e. statements such as CALL, EXTERNAL, or 
INCLUDE). Finally, the program can be run as desired. 


FORTRAN-80 1s a type of FORTRAN designed to be run on 8080 
and Z280-based machines, and is based on the ANSI X3.9-1966 
Standard. Several extensions have been added to the standard 
to provide the programmer with enhanced ease of use and 
useful features that streamline programming activities. 
Several restrictions to the standard are provided also. The 
details of FORTRAN-80 are described at length in the 
FORTRAN-80 Reference Manual. This manual is designed to 
provide user relevant details associated with designing, 
compiling, debugging, linking, and running FORTRAN-80 on the 
OSBORNE 1 Computer. 


L.l Designing FORTRAN-80 Programs. 


Although the FORTRAN language is fairly efficient 
and easily used once understood, the syntactical 
rules for using the language are rigorous and 
require the programmer to fully describe the 
characteristics of a problem ina series of precise 
Statements. Design of FORTRAN-80 programs will be 
most easily accomplished if the user thoroughly 
studies the detailed information describing the 
language in the Reference Manual. This will provide 
full insight into the capabilities and features of 
the language that will greatly assist in writing 
compact, efficient, effective, and trouble-free 
programs. 


When designing something complex, it has been shown 
throughout history that a step-by-step approach 
works best. Therefore, let's look at a step-by-step 
method for designing FORTRAN programs. The approach 
contains five steps and is called “Top Down Program 
Design" because we begin at the topor most general 
overview of a solution and work down in stages 
until we arrive at a detailed solution. You will be 
introduced to some of the tools that are used in 
this approach, namely, the data table and the flow 
diagram. The five steps involved in top down design 
are listed as follows and described in paragraphs 
l.l.1 to 1.1.5: 
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STEP 1. Understand the problem. 
STEP 2. Make a data table. 
STEP 3. Make a Hierarchy Chart. 


STEP 4. Make a detailed flow diagram of the 
algorithm for solving the problem. 


STEP 5. Code the program in FORTRAN. 


1.1.1 Top Down Design Step l- Understand the Problem. 


What we are interested in is the logical process 
that one must go through in solving any problem. 
The problem we will consider here is simple enough 
that it could easily be solved by uSing a 
calculator (or by arithmetic, if anyone remembers 
how to divide anymore!). Here's the problem: 


Suppose you are in atennis league and you 
wish to write down a step-by-step procedure 
that could be followed by each member of the 
league each week in updating his/her average. 
The average 18s to be computed as the 
percentage of games won that are played. 


Where do you begin in solving the problem? First, 
it is essential to understand the problem in your 
own words, perhaps adding information as to ‘how to 
do it'. Your statement might read like this. 'I 
want to compute the percentage of games won, which 
is equal to the total of number of games won 
divided by the number of games played'. This 
problem is a very simple one so no further time is 
neéded to understand it. However, some problems may 
take several readings before you are ready to 
proceed toward the solution. The important thing is 
to thouroughly understand what you are going to do 
to implement the solution BEFORE attempting it. 


1.1.2 Top Down Design Step 2- Make a Data Table. 


At step 2, each data item that is needed in the 
program is listed in a table which gives the 
pertinent facts about the data item. The data table 
for our previously dicussed tennis problem is given 
in Table l-l. 
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- Table 1-1 
Tennis Average Data Table Example 
DATA DEFINITION UNIT DATA USE FORTRAN 
ITEM TYPE* * NAME 
No. games played prior 
to this week I I NPLAY 
No. games won prior to 
this week I I NWON 
No. games played this 
week I I N PWK 
No. games won this week I I NWWK 
Percent of games won R O P CWON 


"DATA TYPE: I#Integer, R#Real, AzAlphanumeric 
**USE: IsInput, OmOutput, T=Temporary, C=#Constant 


NOTE: The data item and unit columns are left blank since there 
are no DATA ITEM symbolic designations (as yet) or unit terms. 
Also note that the A data type has been added to the possible 
choices for the DATA TYPE column (A for alphanumeric). Any data 
item read in under the A format code (in a FORMAT statement) or 
set ina DATA statement as alphanumeric would have an A 
designation. 


1.1.3 Top Down Design Step 3- Draw a Hierarchy Chart. 


After the data requirements have been listed, the 
next step is to make a list of the tasks or 
functions that need to be accomplished in order to 
do tf@ problem. A hierarchy chart allows this to be 
done in an orderly fashion. To understand what is 
meant by a hierarchy chart, consider the following 
overly simplified diagram of any problem solution 
on the computer, as shown in Figure 1-1. 
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INPUT ----- PROCESS ----- OUTPUT 


Figure l-l. General Hierarchy Chart. 


Figure l-l Shows a general hierarchy chart of 
almost all problems we encounter for solution on a 
computer. For this reason, this chart or anv 
refinement is referred to as a hierarchy chart or 
Simply, a HIPO chart, for ‘hierarchy-input-process- 
Output’. A hierarchy chart can be compared to a 
company's organizational chart in that it is 
functionally-oriented and shows the flow of 
control, which is from top to bottom. 


A top level hierarchy chart focuses on what needs 
to be done before deciding on how to do it. It 
differs from the detailed flow diagram described in 
the next section in that it contains no decision 
making or flow of execution. 


The top level hierarchy chart gets you started and 
gives an overview of what needs to be done. 
Successive refinements of tne blocks inthe chart 
aids thinking so that the details can be worked 
Out. Too often, a beginner can not get started due 
to focusing on a small part of the overall problem 
that is out of perspective to the rest. This 
bottom-up approach results in small pieces of the 
program being written that when assembled, without 
prior top down planning, do not result in a 
carefully designed program, hence a 'can of worms’. 
Therefore, begin the design of a program using a 
HIPO chart. 


Next, replace each of the three major boxes of the 
chart with the specific functions and tasks to be 
performed. Put each task or function in a separate 
box with connecting lines in the order they are to 
be performed. The boxes are written here 
horizontally as a space saving convenience with the 
direction of the arrows showing the order which the 
functions are to be performed. 
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After the input and output requirements have been 
written in a data table, ask yourself, "What must I 
do to the input data to arrive at the at the output 
data?" This will aid you in specifying the 
processing tasks. Figure 1-2 shows a HIPO chart for 
the previously discussed tennis problem. Note that 
this chart 18 merely a modified version of that 
shown in Figure l-l. 


Continue to break down functions into smaller, 
Simpler functions needed to do your specific 
problem. Depending on the complexity of the 
problem, several refinements of the HIPO chart may 
be needed until arriving at one that states all the 
Functions simply enough to allow you to detail the 
complete logic of your program. The tennis chart 
shown in Figure i-2 18S complete on the first try. 


READ COMPUTE NEW COMPUTE NEW COMPUTE WRITE 

DATA----- TOTAL OF --~--TOTAL OF ---PERCENT---PERCENT 
GAMES PLAYED GAMES WON WON WON 

INPUT PROCESS OUTPUT 


Figure 1-2. Hierarchy Chart for Tennis Program. 


1.1.4 Top Down Design Step 4- Make a Detailed Flow Diagram 


In this step, the overview is refined to show the 
detailed steps involved in performing each task 
indicated in the hierarchy chart. The series of 
detailed steps to perform a particular task is 
called an algorithm. A diagram of the algorithm is 
called the detailed flow diagram which includes all 
decisions that need to be made. The FORTRAN names 
are used, and equations are written to show how the 
functions are to be done. Flow diagrams are 
normally done vertically with connectors used to 
show the order of flow through the columns. A 
detailed flow diagram of the previously discussed 


PORTRAN-80 User's Manual Page 1-7 


tennis problem is given in Figure 1-3. An alternate 
and acceptable way of drawing the flow diagram is 
to use the mathmatical symbols or verbal 
descriptions and indicate each computation to be 
done. This flow diagram method should always be 
accompanied with the appropriate data table and 
list of all equations used. Figure 1-4 illustrates 
this method for the sample problem. In the figure, 
FORTRAN names are used since no symbols were given 
in the data table (Table 1-1). 


START START 
READ INPUT Read inputs 
DATA 
NPLAY= Compute new 
NP LAY +NPWK total played 
NWON® Compute new 
NWON+NWWK total won 
PCWON= Compute 
NWON/NPLAY Percent 
won 
WRITE Write 
NPLAY,NWON, output 
PCWON 
STOP STOP 
Figure 1-3. Detailed Plow Figure 1-4. Detailed Flow 
Diagram-Tennis Diagram-Alternate 
Problem. Method. 
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1.1.5 Top Down Design Step 5- Code the Program in FORTRAN. 


Once the preceeding steps are done, it is obvious 
that the coding required to implement the tasks 
will be much easier to generate. Using the 
information suppied in the Reference Manual and by 
referring to the information presented in paragraph 
1.2, the user will with a little practice be able 
to efficiently and correctly code any FORTRAN 
program. 


1.2 PORTRAN-80 Statement Summary. 


The statements, rules and syntax of the FORTRAN-80 
language are covered in detail in the Reference 
Manual. The user should read this manual carefully 
before attempting to code programs. Table 1-2 1s a 
summary of all commands, statements, and keyworded 
subroutines in FORTRAN-80. Page references are 
provided against each item in the table to the 
detailed information in the Reference Manual. The 
user should also make use of the table of contents 
and index provided in the manual to reference 
specific items of interest. 
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TABLE 1-2 FORTRAN-80 STATEMENT SUMMARY 


- 


STATEMENT FORM/ EXAMPLES PURPOSE/USED TO SEE PAGE 
arithmetic az(e) Perform arithmetic 96,128 
expressions calculations and | 

a can be a variable, store results.See 


constant,array element Reference Manual 
reference,or FUNCTION Section 4 for comp- 
reference. lete discussion of 
e is an arithmetic rules. 

expression. 


X2Z+96.43 

IMAP#A*®(Z-( (Y+X)/T) ) **J 
L=(X**y) **Z 
Kl2-((B(I,J))(1.7D4**X) ) +SQRTF 


arithmetic IF IF(e)ml,m2,m3 Cause conditional 129 
branching based on 
e is an expression, numerical value. 


m are statement labels 
If e<0,branch to ml 
If ez0,branch to m2 
If e>0,branch to m3 


IF(D-1.4)7,10,20 
IP(C**2-F**7)10,20, 30 


ASSIGN ASSIGN j TO iv Transfer control to 127 
statement j, when 
j is an executable an accompanying GO TO 
statement label. statement containing 
iv is an integer iv is executed. 


variable. 


ASSIGN 100 TO LABEL 


ASSIGN 90 TO LABEL 
GO TO LABEL, (80,90,100) 
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STATEMENT FORM/ EXAMPLES PURPOSE/USED TO SEE PAGE 
assigned GO TO GO TO iv,(kl,k2,...kn) Cause branch to 126 
GO TO iv variable name and 


execute specified 
lv 1S an integer variable statements. 
name.k are statement labels. 


GO TO X,BASK,FLAGA,BXC 


BLOCK DATA BLOCK DATA name Initializes data in 185 
Subprogram a common block 
Subroutine can only during loading of 


have:type,EQUIVALENCE, object code. 
DATA, COMMON ,DIMENSION 

Statements and must 

end with END statement. 


CALL CALL name Transfer control to 136 
CALL name(al,a2,...an) the called subroutine 
subprogram, 
name is the subroutine 
subprogram. 


a are the arguements 
to be used by the 
subprogram. 


CALL PAGE 
CALL LADE(X,Y, 200) 
CALL SQRT(A,N) 


CALL OPEN CALL OPEN(LUN,filename, Open a disk file 67 
Subroutine drive) without using READ 
LUN is logical unit or WRITE I/O 
number associated statements. 
with the file(1-10). Note that drive 
Filename is a variable, designator 1 =A, 
ASCII string of characters, 2= 8B. 


array name,or a hollerith 
or literal constant. 
Drive is disk drive 
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STATEMENT 


COMMON 


computed GOTO 


CONTINUE 


DATA 


DIMENSION 


FORM/ EXAMPLES PURPOSE/USED TO SEE PAGE 
COMMON /yl/al/y2/a2/... Define COMMON block 113 
yn/an and store variables 

Or arrays.Arrays 
y are the names of must be previously 
common blocks. defined by DIMENSION 
a are variables,array statement. 


names,or array declarators 
to be stored. 


COMMON /AREA/A,B,C/ 
BDATA/X,Y,2Z,FL, ZAP( 30) 


GO TO (k1l,k2,k3,...kn),1vV Cause a branch 129 
based on an index 

k are statement labels. value (iv). 

iv 1S an integer variable.If iv is less 

Where l<iv<n than l or iv>kn, 
control 1S passed 

GO TO (2,7,9,56),IFLAG to next sequential 

GO TO (5,10,20), INDEX Statement. 


See Ref. Man. 
para. 7.1.2. 


CONTINUE Provide a reference 135 
statement marker. 
Sometimes used at end 
of a series of DO loops 
as a terminal statement 
to continue execution. 
See Ref. Manual 
‘paragraph 7.5. 


DATA kl/dl/k2/d2...kn/dn/ Assign values 11:19 
DATA kl/dl,k2/d2,...kn/dn/ during compile. 
DATA kl,k2,...kn/dl,d2,...dn/ 


k=variable,array,or element 
d=data value 


DATA A,B,C/1.,2.,3./ 
DATA A/1./B/2./,C/3./ 
DATA A/1./,B/2./,C/3./ 


DIMENSION namel(size),name2 Cefine array Ilile 
(size),...namen(sizen) and storage 

for array. 
DIMENSION X(100) 
DIMENSION I(50),NON( 25,60) 
DIMENSION A(20,50,190) ,B(2,5) 
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STAT EMENT FORM/ EXAMPLES PURPOSE/USED TO SEE PAGE 
e 
DO DO k i=ml,m2,m3 Define range of 130 
DO loop and loop 
k is a statement index parameters. 


label,i is an integer For DO loop implied 
Or logical variable, list details,see 


and ml,m2,m3 are Reference Manual 
integer constants or Section 8 under 
integer or logical list item types. 


variables. 


DO 10 J=1,8 

DO 15 KzI,J,L 
DOUBLE ..- DOUBLE PRECISION(e)... Convert single 105 
PRECISION precision real number 


R=DOUBLE PRECISION .3E3 (8 place) to double 
I=DOUBLE PRECISION A,B precision (16 place) 
floating point 
See type and 
replacement statements. 


DOUBLE DOUBLE PRECISION rnl,rn2, Specify double 83 
PRECISION type rn3,rn4,...rn precision variable 
specification Or array element. 
DOUBLE PRECISION 2.4E3 See type statements. 
ENCODE/DECODE ENCODE(a,f)k Transfer data according 146 
DECODB(a,f)k to format specifications 
from one memory location 
aig an array name. to another .DECODE 
f 183 FORMAT statement converts data from ASCII 
number. to internal format. 
k is an I/O list. ENCODE converts from 


internal format to 
ASCII .There is no 
overflow checking 
with these commands, 
so ensure that 
adequate disk space 

is available.Refer 

to Reference Manual 
Section 8 for details. 


END END Define end of the 137 
program. 
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STATEMENT FORM/EXAMPLES PURPOSE/USED TO SEE PAGE 
ENDFILE ENDFILE u Closes file associated 146 
with spacified Logical 
where u iS a Logical Unit Number.See Ref .Man. 
Unit Number (LUN) para.8.4 and Appendix B. 
EQUIVALENCE EQUIVALENCE(al,a2...an), Store several varables 115 
(bl,b2...bn),... in the same storage 
unit. Equivalent 
a and b can be either variables or arrays 
variables or arrays. must occupy the same 
amount of storage and 
EQUIVALENCE(XTLP,TYUH) must not be required 
Simultaneously. 
EXTERNAL EXTERNAL namel,...namen Identify lll 
subprogram 
name can be:SUBROUTINE, names as 
BLOCK ,or FUNCTION name allowable 
subprogram 
EXTERNAL SIN,COS arguments. 
FLOAT FLOAT inl,in2,... Overrides implicit 105,172 
integer specifica- 
FLOAT J,K,L tion.See replacement 
statements. 
FORMAT ( read ) m FORMAT(s1l1,S2,...sn/ Specify location, 150-i72 
sl',s2',...sn') field and type 


of input data. 
mis statement label For field descriptor 


s is field descriptor types,see Reference 
Manual Section 8 
10 FORMAT(F10.4) for details. 


20 FORMAT ( 3F6.2,E13.4, 316) 
90 FORMAT(F4.1,3X,F3.0) 


FORMAT (write) FORMAT(Sl1,S2,...Sn/ Specify location, 150-172 
sl',s2',...sn') field and type 
of output data. 
(see read FORMAT) For field descriptor 


types,see Reference 
Manual Section 8. 
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STATEMENT FORM/ EXAMPLES PURPOSE/USED TO SEE PAGE 
FUNCTION type FUNCTION(al,a2,...) Define program 169 
subprogram FUNCTION name(al,a2,...) as a FUNCTION 
subprogram.See 
type is either INTEGER, Reference Manual 
REAL,DOUBLE PRECISION, Section 9 for 
Or LOGICAL,or empty. acceptable 
name 1s subprogram name. subprogram 
a are dummy arguments Structure and 
that represent variables, calling rules. 
arrays,oOr dummy SUBROUTINE 
or FUNCTION subprogram 
names. 
FUNCTION ROOT(A,B,C) 
REAL FUNCTION IBS(X,Y) 
INTEGER FUNCTION ZAP(D,L) 
GO TO GO TO k Generate an 125 
unconditional unconditional 
k 1S a Statement branch. 
label. 
GO TO 564 
HEXADECIMAL ..-HEXADECIMAL Z'e',... Convert variable or i105 
.. HEXADECIMAL Y'e',... array element to HEX 
form.See type and 
R=HEXADECIMAL 2'12' replacement statements. 
X=HEXADECIMAL Y'ABIF' 
HEXADECIMAL type HEXADECIMAL Z'‘e' Specify variable 83 
specification HEXADECIMAL Y‘e' Or array element in 
HEX form. See type 
HEXADECIMAL Z'O8FF' Statements. 
IFIX IFIX rnl,rn2,... Override implicit 105,172 
real specification. 
IFIX A,B,C See replacement 
statements. 
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STATEMENT FORM/EXAMPLES PURPOSE/USED TO SEE PAGE 
IMPLICIT IMPLICIT type(range), Define or redefine 121 

type(range),... default variable 

types .See type and 

type can be: replacement statements. 

INTEGER,REAL, LOGICAL, 

DOUBLE PRECISION,BYTE, 

INTEGER*1, INTEGER*2, 

INTEGER*4, REAL*4, 

REAL*8 


range can be list of 
alphabetic characters 
separated by commas or 
hyphens 


IMPLICIT INTEGER*4(A,W-Z) ,REAL(B-V) 


INCLUDE INCLUDE( FI LENAME) Cause compiler to 82 
bring outside source 
INCLUDE( ZAP) program into current 
program. 
INTEGER type INTEGER inl,in2...inn Specify variable 8 3 
specification Or array element in 
INTEGER J,K,L integer form. See 
INTEGER M.3,7,99 type statements. 
library functions f(al,a2,...an) Provide intrinsic, 172 
(including: external,and other 
intrinsic, f is the name of functions that can 
external, the function. be called up by name 
and others) a are arguments. from any expression 
statement .See Reference 
SIGN(4,7) Manual Section 9 for 
AMINO(A,B,C) details. 
ALOG1O A 
LITERAL 7 .. LITERAL 'X1X2X3...' Convert variable 105 
to literal form. 
Y=LITERAL ‘ABC' See relacement and 
and type statements. 
LITERAL type LITERAL 'X1X2X3...' Declare variable as 83 
specification literal .See type 


statements. 
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STATEMENT 


logical 
expressions 


logical IF 


LOGICAL 


LOGICAL type 
specification 


Page 1-16 
FORM/ EXAMPLES PURPOSE/USED TO SEE PAGE 

l=(e) © Perform logical 100 
calculations and 

l1 is a logical value Store the result. 

either .TRUE. or 

.PALSE., representing 

a logical variable, 

logical constant, 

logical array element, 

or logical FPUNCTION 

reference. 

eis an expression that 

can be logical operators 

acting on logical variables/ 

constants/array elements/ 

FUNCTIONS, or relational 

operators acting on 

arithmetic expressions 

(relational expression). 

LOGICAL X#A.AND .B 

LOGICAL TL2#IMAR .XOR.CLUBM 

LOGICAL Z2#A**D.LT.P/C 

IF(el reop e2)s Conditional branching 129 
based on logical 

e are logical relation of two 

expressions. expressions. 

reop is a relational 

operator. 

s is any executable 

statement except DO. 

IF(A.LT.B)GOTO77 

IF (X*®*2.GT.Y¥**2) Z2X-Y 

--e LOGICAL(e)... Convert variable 105 
to logical form. 

T=LOGICAL(X=Y) See type and 
replacement 
statements. 

LOGICAL a.b.c Declare a LOGICAL 8 3 
variable or array 

LOGICAL T,F element name. See 


type statements. 
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STATEMENT 


OPEN 
subroutine 


PAUSE 


PROGRAM 


READ 
(formatted) 


Page 1-17 
FORM/ EXAMPLES PURPOSE/USED TO SEE PAGE 
OPEN u Opens a Logical Unit 145 
Number (LUN) for file 
where u 1s a Logical access (READ or WRITE). 


Unit Number (LUN). 


(LUN can be closed by 


uSing ENFILE or REWIND 
Statements). See Ref. 
Man. para. 8.3.2. 


PAUSE 
PAUSE C 


C 18 a character string 
up to Six characters to 
be displayed. 


PROGRAM name 


name 1S a string of from 
one to six alphanumeric 
characters,the first 
being a letter. 


READ(u,f£,ERR=L1,END=L2) k 
READ(u,£,ERR=L1, END=L2) 


u is Physical or Logical 
Unit integer Number(1-10) 
Or a variable. 

f 1S statement label for 
data conversion. 

Ll 1S FORTRAN label that 
1s called for control if 
error 18S encountered. 

L2 1S FORTRAN label that 
is called for control if 


Halt execution for 136 
operator interaction, 
and display C message 

1f desired. 


Specify a name for 179 
the malin program 
unit.If no name is 
provided,system 

assigns default 

name of SMAIN. 


Input data 1n 139 
formatted form 
with data 
conversion 

Must use FORMAT 
Statement with 
with this 
Statement .For 
data conversion 

f labels,see 
Reference Manual. 


End-of-File is encountered. 
k is list of variable names, 


separated by commas, 
specifying input data. 


READ(8,F)A,B,C 
READ(9,E,LX,EX)E,F,G 
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STATEMENT FORM/ EXAMPLES PURPOSE/USED TO PAGE 
READ READ(u, ERR=L1, END=L2)k Input data in 143 
(unformatted) unformatted form 

u 1S a Logical Unit without data 

Ll specifies I/O error conversion, 

branch 

L2 specifies an End-of-File 

branch 


k 18 list of variable names 
separated by commas 


READ(9)A,B,C,D,E 


REAL type REAL rnl,rn2,...rnn Specify real variable. 83 
specification See type statements. 

REAL L To overide implicit 

REAL X real specification, 


REAL ITEM,NO,ID,I1,I12 see replacement 
Statements. 


relational r=(el.reop.e2) Perform relational 101 
expressions calculations and 
r is the value of store the result. 


the relational 
expression that 1s 
either .TRUE. or 
»-FALSE.,depending on 
whether the condition 
defined by the operator 
1s met or not met, 
respectively. 

el and e2 are arithmetic 
expressions, 

reop 1s the relational 
operator .LT.,.LE.,.EQ., 
.NE.,.GT., or .GE. . 
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STATEMENT FORM/ EXAMPLES 


replacement v=e 

statements “ 
v is any variable or 
array element. 
e is an expression 
as required. 


Can be used as needed 
to: 

Replace existing 

type specifications. 
Use a new variable or 
array element to 
represent an existing 
expression. 


L2A 
INTEGER*2 L#REAL*2 C 
A(5,3) =B(7,2)+SIN(C) 
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PURPOSE/USED TO PAGE 


Replace previously 105 
specified variable 

type or overide 

implicit type 
Specification. 

(variable label 
rangespreviously 
assigned by IMPLICIT 
Statement) .See type 

and IMPLICIT statements. 
For rules on type 
conversion, see 
Reference Manual 

Section 5, Table 5-1. 


DOUBLE PRECISION X2INTEGER*8 X 


RETURN RETURN 


REWIND REWIND u 


where u is a Logical 
Unit Number (LUN). 


statement name(al,a2,...an) ze 
function 

name is function name. 
a are dummy arguments. 
e is an arithmetic or 
logical expression. 


FUNC(A) 3.*A**22A-7 
AVE6(A,B,C) #A+B+C/D 


STOP STOP 
STOP C 
(C is a character 
string of up to six 
characters to be 
displayed 


STOP IMAGE3 
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Return control 137 
back to the calling 
program.See CALL 

and subprogram 
statements. 


Closes file on Logical 146 
Unit Number (LUN) u, 
then reopens it. See 
Ref. Man. para. 8.4. 


Define a function. 170 
See Reference Manual 
Section 8 for rules. 


Terminate execution 135 
and if desired display 
message. 
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STATEMENT FORM/ EXAMPLES PURPOSE/USED TO SEE PAGE 
SUBROUTINE SUBROUTINE name(al,...an) Define subroutine 169 
subprograms SUBROUTINE name subprograms or 
variables/arrays 
a are dummy arguments to be called and 
representing variables, executed .See 
array names,or another Reference Manual 
SUBROUTINE or FUNCTION Section 9 for 
names, details. 


SUBROUTINE ZAP 


type type V1,V2,...Vn Define variable, 8 3 
statements array, or function 
type can be: names. See Ref. Man. 
INTEGER, INTEGER*1, Section 3, Tables 
INTEGER*2, INTEGER*4, 3-1 and 3-2. *1,%*2, 
REAL, REAL*4,REAL*8 , *4,*8 denote storage 
DOUBLE PRECISION, requirements of 1,2, 
LOGICAL, LOGICAL*1, 4, or 8 bytes. 
LOGICAL* 2, LOGICAL* 4, 
Or BYTE 
WRITE WRITE(u,f,ERR#L1,END2L2)k Output data in 142 
(formatted) WRITE(u,f , ERR#®L1, END#=L2) formated form 
with data 
(see parameters for conversion 
formatted READ) Must use FORMAT 
statement with 
WRITE(9,X)L,M,N,P this statement 
WRITE(3,L) A,B,C For data conversion 
WRITE(4,F,LX,EX)X,Y,2Z labels,see Reference 
WRITE(N,G)I,J Manual. 
WRITE WRITE(u, ERR®L1,END#L2)k Output data in 143 
(unformatted) in unformatted 
(see unformatted READ) form without data 
conversion. 
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1.3 FORTRAN-80 Program Design Examples. 


The following two program development scenarios are 
provided to acquaint first time FORTRAN programmers 
with the language using the previously-discussed 
top down design methodology. These are not meant to 
be exhaustive in their use of the FORTRAN language, 
but rather to provide a useful tutorial from which 
comparisons can be made and experience gained. 


Example 1: 


A heavy engineering company must construct a 
pseudo-cone structure as shown in Figure 1-5, per 
various dimensions designated as shown. They wish 
to know the lateral surface area, the total surface 
area, and the volume of the structure. Therefore, 
we design a FORTRAN-80 program to do this as 
follows: 


Step 1: State and Understand the problem. 


We wish to compute the lateral surface area (S), 
the total surface area (T), and the volume (V) for 
the figure as shown in Figure 1-5. The values for 
variables Rl, R2, and h will be provided as input. 
The value of ‘a' is also necessary but will not be 
provided as input data. We must, cherefore, 
calculate this value temporarily to be used in the 
overall calculations to be implemented in the 
solution. We then do some research to determine 
what equations could be used to perform the 
calculations required. Our research indicates that 
the required results can be calculated by using the 
following equations: 


S=Pif{(R1+R2)a] 


2 2 
T=Pi({Rl +R2 +(R1+R2)a) 


2 2 
V=1/3Pi h(R1l +R2 +R1R2) 


2 2 
a=SQRT((R1-R2) +h ) 
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DATA 
ITEM 


Step 2: Make a Data Table. 


Page 1-22 


Based on what we know up to this point, we can 
construct a data table as follows: 


FORTRAN DATA TABLE FOR CONE PROBLEM 


DEFINITION 


radius of cone 

radius of cone 

height of cone 

value of Pil 

temporary calculation 


lateral surface area 
of cone 


total surface area 
of cone 


volume of cone 


UNIT 


DATA USE FORTRAN 
TYPE NAME 

R [ Rl 

R I R2 

R I H 

R C PTI 

R T A 

R O S 

R O T 

R OQ V 


Figure 1-5. Design Example- Pseudo-Cone Structure. 
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Step 3: Make a hierarchy chart. 


A HIPO chart can be constructed based on what we 
know as foilows: 


READ 

DATA ---- COMPUTE ---- COMPUTE ---- COMPUTE ---- COMPUTE 
R1,R2, A S T V 

& H 


Step 4: Draw a detailed flow diagram. 


Based on the preceeding, the detailed flow diagram 
is as follows: 


START 


DISPLAY PROMPTS 
FOR USER ENTRY 
OF DATA R1,R2,H 


READ INPUT 
DATA R1,R2,H 


ASSIGN VALUE OF PI 


A=SQRT( (R1-R2) **2+H** 2) 
S=PI*(R1+R2) *A 
T=PI*(R1**2+R2**2+(R1+R2) *A) 
V=PI*H*(R1**2+R2**2+R1*R2)/3. 
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Step 5: Code the FORTRAN program. 


The FORTRAN program can now be easily coded into a 
new file using the above information as below. 


Columns 123456789....... etc. 


C CONE PROBLEM 
C ASSIGN LABELS TO LUNS 
IN=1 
louT=1 
C SET UP DATA FILE 
CALL OPEN(6,'BBBBBBBDATA', 2) 
C WRITE USER PROMPTS TO SCREEN AND 
C READ IN VALUES OF R1,R2, AND H 
WRITE( IOUT, 10) 
10 FORMAT('2', ‘ENTER VALUE OF Rl ') 
READ(IN,20)R1 
20 FORMAT ( 3P5.2) 
WRITE( IOUT, 30) 
30 FORMAT('2',' ENTER VALUE OF R2 ') 
READ (IN, 20) R2 


WRITE( IOUT, 40) 
40 FPORMAT('2',' ENTER VALUE OF H ') 
READ(IN,20)H 
C SET VALUE OF PI 
PI=3.1416 
C CALCULATE S,T,V 
A=SQRT( (R1-R2) **2+H**2) 
S*PI*(R1+R2) *A 
T=PI*(R1**2+R2**2+(R1+R2) *A) 
V=PI *H*(R1**24+R2**2+R1*R2)/3. 
C OUTPUT RESULT VALUES TO DISK 


WRITE(6,50,ERR#100,END#100)S 
SO FORMAT(' ',6X,'LATERAL SURFACE AREA #=',F6.2) 
«WRITE(6,60,ERR#100,END#100)T 
60 FPORMAT(' ‘,6X,'TOTAL SURFACE AREA =',F6.2) 
WRITE(6,70,ERR=100,END#100)V 
70 FORMAT(' ',6X,'VOLUME' ,15X,‘'=',F6. 2) 
C WRITE TO SCREEN 
WRITE(IOUT,50)S 
WRITE(IOUT,60)T 
WRITE( IOUT, 70)V 
C PROVIDE ERROR/ENDFILE BRANCH DISPLAY 
100 FPORMAT('1',5X,'ERROR ON WRITE ') 
END 
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Try this program out on your computer if you wish. 
Some suggested test values for variables R1,R2, and 
H could be H=9.00, R1=3.58, R2=1.60. 


Note that many experienced FORTRAN programmers 
usually perform steps 1 through 4 mentally when 
implementing simple solutions, such as this one. 
However, 1t 1S lmportant to perform all steps 
despite a problem's apparent simplicity. When 
implementing complicated solutions, it is 
absolutely imperative to perform all steps to 
improve the quality of the designed programs, and 
to eliminate much reiterative work that would 
result from poor planning of the solution. 
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Example 2: 


The “We've Got Ya Covered" carpet store has just 
decided to import a series of European carpets, 
which are measured in meters rather than yards. 
Rather than have its salesmen perform English to 
metric conversion in the field when doing 
estimates, the company has decided to furnish the 
sales staff with a simplified English to metric 
conversion chart. Further, they feel that a chart 
converting nearest whole inch measurements to 
centimeters will be adequate. Our task is to write 
a program that will generate this chart. 


Step 1: State and understand the probiem. 


We wish to generate a listing of centimeter vaices 
corresponding to whole inches, using the conversion 
factor 1 inch= 2.54 centimeters. The Sales Manager 
feelsthat a chart from 1 to 100 inches will be 
acceptable. 


Step 2: Make a data table. 


FORTRAN DATA TABLE 


DATA DEFINITION UNIT DATA USE FORTRAN 
ITEM TYPE NAME 
C£ Conversion tactor - e I CF 
l,j number of inches in. I T [I,J * 
cml, Number of centimeters cm. R T CMI ,CMJ 
cm j corresponding to inches 

name salesman's name - B I NAME 


*NOTE: The first attempt to generate this table showed 1 and 
cmi only. It was then refined to show j and cm}, 
since we want an eaSy way to generate a printout 
having two columns of fifty conversions (to use less 
line space, for compactness). 
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Step 3: Make a hierarchy chart. 


HIERARCHY CHART 


NO DATA ---- SET CONV. ---- INITIALIZE ---- COMPUTE ---- 
READ FACTOR I,J CMI, CMJ 
NAME 


WRITE I,CMI 
& J,CMJ 
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Step 4: Make a flow chart. 


START 


READ NAME 


SET CF#2.54 


SET I=l 


J=mI+50 


CMI=CF* FLOAT (T) 
CMJ=CF* FLOAT (J) 


I=50? 


I=I+1 


WRITE I,CMI,J,CMJ 


END 
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Step 5: Code the FORTRAN program. 


Columns 123456789.... 


‘o) AAANN 


onen®) 


PROGRAM TO PRODUCE A METRIC CONVERSION TABLE 
FROM INCHES TO CENTIMETERS- 
NO DATA ARE REQUIRED FOR THE CALCULATIONS 
TYPE ARRAY FOR SALESMAN'S NAME,VARABLE FOR PRINT OPTION 
BYTE NAME(12) ,ANSWER 
ASSIGN LABELS TO INPUT AND OUTPUT LUNS 
IN=l 
IOUT=1 
IPRINT=2 
OPEN A DISK FILE AND WRITE USER PROMPT 
CALL OPEN(6,'BBBBBBBBDAT', 2) 
WRITE( IOUT, 66) 
66 FORMAT('2', ENTER SALESMAN NAME-UP TO 12 CHARS ') 
READ SALESMAN NAME FROM USER ENTRY 
READ(IN,77) (NAME(I) ,I=1,12) 
77 FORMAT(12A1) 
SET CONVERSION FACTOR 
CF=2.54 
DISPLAY SALESMAN NAME 
WRITE(IOUT,88) (NAME(I) ,I=1,12) 
88 FORMAT('2',2X,'NAME IS ',12A1) 
WRITE USER PROMPT FOR PRINTER AND READ ANSWER FROM USER 
WRITE( IOUT, 421) 
421 FORMAT(5X,'DO YOU HAVE A PRINTER ATTACHED 2?(Y/N) ') 
READ(IN,422) ANSWER 
422 FORMAT(A1) 
WRITE HEADING 
WRITE( IOUT,10) 
10 FORMAT('1',3X,' INCHES CENTIMETERS INCHES CENTI 
+METERS',41A1) 
CALCULATE 
DO 20 I=1,50 
J=I+50 
CMI=CF*FLOAT (I) 
CMJ=CF*FLOAT (J) 
WRITE TO DISK 
WRITE(6,15, ERR=20, END=20)1I,CMI,J,CMJ 
15 FORMAT(' ',5X,13,5X,F5.1,10X,13,5X,F5.1) 
WRITE TO SCREEN 
WRITE(IOUT,15)1,CMI,J,CMJ 
IF USER HAS PRINTER- PRINT ON PRINTER.PLEASE NOTE THAT 
A BYTE DEFINED VARIABLE MUST BE ADDRESSED IN AN “IF" 
STATEMENT IN OECIMAL FORM (SEE ASCII CODES) 
IF (ANSWER.EQ.89.OR.ANSWER.EQ.121)WRITE( IPRINT,15) 
+I,CMI,J,CMJ 
20 CONTINUE 
END 
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Try running this on your computer if you wish. The 
source file can easily be created using Wordstar in 
non-document mode. 


1.4 Compiling and Debugging. 


Information for compiling FORTRAN-80 programs is 
provided in SECTION 2. Error messages are listed in 
SECTION 3. The object of compiling and debugging 
is to create an error-free object file (.REL) from 
the source file (.FOR). A listing file can also be 
created if desired. Often, the most strenuous 
aspect of programming can be the debugging 
Operation. It 18s, therefore, highly recommended 
that the user take the time to study the syntax 
rules of the FORTRAN-80 language to minimize the 
amount of debugging necessary. The following 
procedure 1s recommended when attempting to resolve 
errors: 


1. Ensure that the order of Statements in the 
program 1S correct per language conventions. 


2. Double check the program steps before the 
error was encountered, refering to your data 
table and detailed flow diagram. 


3. Check suspicious syntax against Table 1-2, and 
verify statement rules are being correctly 
followed by refering to the Reference Manual 
page number listed in Table 1-2 against the 
Statement types. Use the package index and the 
index provided in the Reference Manual to 
research related information. 


4. Check or verify that punctuation and space 
details are correct in each suspect statement, 
especially if received error codes indicate 
this type of fault. 


5. Recompile the program once you are satisfied 
that the error should be resolved. If the same 
error occurs during recompile, the problem can 
usually be found by researching related rules, 
sometimes affecting prior related statements. 
Do not always assume that the line on which a 
error occured is the problem. It 1s best to 
concentrate on imagining the conditions set up 
through various related statements preceding 
the one which issued the error. 
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Once compile_is successful completed, generating an 
object file (filename.REL), the program may be 
loaded, linked, and run using LINK-80. 


To compile the above example programs, you would 
perform the following steps: 


1. Insert and load your FORTRAN-80 diskette 
containing the files "“°F80.COM" and 
"FORLIB.REL" into disk drive A. Respond to the 
A< prompt with F80.The * prompt will then be 
displayed. 


2. Insert the diskette containing your source 
file in disk drive B. Enter the compile 
command for your source file as follows: 


=B:Filename 


When the compile has been completed 
successfully, the * prompt will reappear with 
no error messages. 


3. Exit F80 by entering “C. 


Linking and Running. 


Loading and linking of the relocatable object file 
generated by the compiler is accomplished using the 
LINK-80 linking loader described in SECTION 4. 
After using LINK-80, a command .COM file is 
generated that may be executed independently under 
CP/M. The program can be run as desired following 
the operating system conventions. These are covered 
in the operating system manual and SECTION 2 and 4. 


Once linking and loading are accomplished, the 
FORTRAN program no longer requires FORTRAN-80 
software diskettes and can be run on an independent 
basis. Also note that operator interface 
requirements for diskette changes, data or option 
entry can be implemented through the useof STOP Cc 
and PAUSE c statements and by using the FCHAIN 
facility, and/or simple WRITE, FORMAT, and READ 
statements. See the Reference Manual for details. 
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The example programs presented earlier may be 
linked, loaded and run as follows: 


Once you have loaded the FORTRAN-80 diskette 
in disk drive A and your diskette containing 
your compiled program in disk drive B, respond 
to the A< prompt by entering L80. A * prompt 
will then be diplayed. The (.REL) program can 
be linked and loaded by performing the 
following sequence: 


/R<RETURN> 
/P:103,B:Pilename ,B:Filename<RETURN> 
/N/G<RETURN> 

The program will then be automatically linked 


and loaded and will sebsequently begin 
execution. 
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SECTION 2 


Compiling FORTRAN Programs 


2.1 Running the FORTRAN-80 Compiler 


The command to run FORTRAN-80 is 
F80 


FORTRAN-80 returns the prompt "*", indicating it 1s 
ready to accept commands. 


2.2 Command Format 


A command to FORTRAN-80 consists of a string of 
filenames with optional switches. All fiienames 
should be made up of entirely letters and numbers, 
which differs from operating system conventions 
for filenames and extensions in that non- 
alphanumeric characters muSt not be used. The 
default filename extensions are as follows; 


File CP/M 
FORTRAN source file FOR 
COBOL source COB 
MACRO-80 source file MAC 
Relocatable object file REL 
Listing file PRN 
Absolute file COM 


A command to FORTRAN-80 conveys the name of the 
source file to be compiled, the names’ of the 
file(s) to be created, and which options are 
desired. The format of an FORTRAN-80 command is: 


objfile,lstfile=source file 
Only the equal sign and the source file field ars 
required to create a relocatable object file with 


the default (source) filename and the detault 
extension REL. 
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Otherwise, an object file is created only if the 
objfile field is filled, and a listing file is 
created only 1f the lstfile field is filled. 


To compile the source file without producing an 
object file or listing file, place only a comma to 
the left of the equal. sign. This is ae handy 
procedure that lets you check for syntax errors 
before compiling to an object file. 


Examples: 


*=TEST Compile the program TEST.FOR 
and place the object file 
in TEST.REL 


*TESTOBJ=TEST.FOR Compile the program TEST.FOR 
and place the object file 
in TESTOBJ.REL 


*TEST,TEST=TEST Compile TEST.FOR, placing the 
object file in TEST.REL and 
the listing file in TEST.PRN. 


*,=TEST.FOR Compile TEST.FOR without creating 
an object or listing file. Useful 
for error check. 


2.2.1 Devices 


Any field in the FORTRAN-80 command string can also 
Specify a device name. The default device name 
with the CP/M operating system is the currently 
logged disk. The command format is: 


dev:objfile,dev:lstfile=dev:source file 


The device names are as follows: 


Device CP/M 
Disk drives A:, B: 
Line printer LST: 
CRT display TTY: 
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Examples; 


* , TTY: =TEST Compile the source file TEST.FOR 
- and list the program on the 
console. No object code is 
generated. Useful for error check. 


*SMALL,TTY:2B:TEST Compile TEST.FOR (found 
on disk drive B), place 
the object file in SMALL.REL, 
and list the program on the console. 


2.2.2 FORTRAN-80 Compilation Switches 


A switch is a letter that is appended to the 
command string, preceded by a slash. It specifies 
an Optional task to be performed during 
compilation. More than one switch can be used, but 
each must be preceded by a slash. All switches are 
optional. 


The available switches: are: 


Switch Action 

O Print all listing addresses, etc. 
in octal. 

N Do not list generated code. 

R Force generation of an object file. 

L Force generation of a listing file. 

P Each /P allocates an extra 100 
bytes of stack space for use during 
compi lation. Use /P if stack 
overf low errors occur during 


compilation. Otherwise not needed. 
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M Specifies to the compiler that the 

generated code should be in a_ form 
- which can be loaded into ROMs. 

When a /M is specified, the 
generated code will differ from 
normal in the following ways: 
1. FORMATS will be placed in the 
program area, with a “JMP" around 
them. 
2. Parameter blocks (for 
Subprogram calls with more than 3 
parameters) will be initialized at 
runtime, rather than being 
initialized by the loader. 


Examples: 


* ,TTY:=*MYPROG/N Compile file MYPROG.FOR and list 
program on terminal but without 
generated code. 


*aTEST/L Compile TEST.FOR to create 
object file TEST.REL and 
listing file TEST.PRN. 


*=BIGGONE/P/P Compile file BIGGONE.FOR 
and produce object file 
BIGGONE.REL. Compiler is 
allocated 200 extra bytes 
of stack space. 
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2.3 Programs in ROM 


If a FORTRAN program is intended for ROM, the 
programmer should be aware of the _ following 
ramifications: 


l. DATA statements should not be used to 
Initialize RAM. Such initialization is done by 
the loader, and will therefore not be present 
at execution. Variables and arrays may be 
initialized during execution via assignment 
Statements, or by READing into them. 


2. FORMATS should not be read into during 
execution. 


3. If the standard library I/O routines are used, 
DISK files should not be OPENed on any LUNs 
other than 6, 7, 8, 9, 10. If other LUNS are 
needed for Disk I/O, SLUNTB should be 
recompiled with the appropriate addresses 
pointing to the Disk driver routine. 


A library routine, S$INIT, sets the stack pointer at 
the top of available memory (as indicated by the 
operating system) before execution begins. 


The calling convention is: 


LXI B,<return address> 
JMP SINIT 


If the generated code is intended for some other 
machine, this routine should probably be rewritten. 
The source of the standard initialize routine is 


provided on the disk as "“INIT.MAC". Only the 
portion of this routine which sets up the stack 
pointer should ever be modified by the user. The 


FORTRAN library already contains’ the standard 
initialize routine. 


40 


FORTRAN-80 User's Manual Page 2-6 


2.4 sample Compilation 


A>F80Q 
®EXAMPL,TTY :=EXAMPL 


FORTRAN-80 Ver. 3.3 Copyright 1979 (C) By Microsoft - Bytes: 4524 
00100 PROGRAM EXAMPLE 


00200 INTEGER X 

00300 I = 2**8 + 2**9 + 2**10 
00400 DO 1 J=1,5 

aeKKE 0000' LXI H,0700 

takht 0003' SHLD [ 

00500 C CIRCULAR SHIFT I LEFT 3 BITS -- RESULT IN X 
00600 CALL CSL3(1I,X) 

ween 0006' LXI H,0001 

‘aane 0009 ' SHLD J 

00700 WRITE( 3,10) 1,X 

aaKRS Q00C' LX I D,X 

weene QOO0F' LXI H,I 

aaRKS O012' CALL CSL3 

axant 0015' LXI D,1O0L 

aeant 0018 ' LX I H, ( 03 00} 
aenne 001B' CALL SW2 

00800 l [=X 

nanan OOl1E' LXI B,X 

axeat 0021' LXI D,I 

enane 0024' LXI H, [ O01 00) 
aaane 0027' MVI A,03 


wane 0029' CALL $10 
aanne 002C' CALL oND 


00900 10 FORMAT (2115) 
exune O02F' LHLD X 
wank 0032' SHLD I 
aaans 0035' LHLD J 
aeene 0038' INX H 
wenrne 0039! MVI A,05 
aaake 003B' SUB L 
aanne 003C' MVI A,00 
waane OO03E' SBB H 
eanke 003F' JP 0009' 
01000 END 

wenn 0042' CALL > EX 
wean 0045' 0100 

atnenke 0047' 0300 


Program Unit Length=0049 (73) Bytes 
Data Area Length=000D (13) Bytes 


Subroutines Referenced: 
S10 CSL3 Siw 2 
SND S EX 
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Variables: 

X 0001" . I 0003" J 0005" 
LABELS: 

1L 002F' 10L 0007" 

**C 

A> 
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SECTION 3 


Error Messages 


3.1 FORTRAN Compiler Error Messages 


The FORTRAN-80 Compiler detects two kinds of 
errors: Warnings and Fatal Errors. When a Warning 
is issued, compilation continues with the next item 
on the source line. When a Fatal Error is found, 
the compiler ignores the rest of the logical line, 
including any continuation lines. Warning messages 
are preceded by percent signs (%), and Fatal Errors 
by question marks (?). The editor line number, if 
any, or the physical line number is printed next. 
It is followed by the error code or error message 
and the last 20 characters scanned at the time the 
error was detected. 


Example: 


?Line 25: Mismatched Parentheses: I=(I+J)) 
Line 16: Missing Integer Variable: I(2*2, 


When either type of error occurs, the program 
should be changed so that it compiles without 
errors. No guarantee is made that a program that 
compiles with errors will execute sensibly. 


Fatal Errors: 


Error 


Number Message 


100 Illegal Statement Number 

101 Statement Unrecognizable or Misspelled 
102 Illegal Statement Completion 

103 Illegal DO Nesting 

104 Illegal Data Constant 

105 Missing Name 

106 Illegal Procedure Name 

107 Invalid DATA Constant or Repeat Factor 
108 Incorrect Number of DATA Constants 

109 Incorrect Integer Constant 

110 Invalid Statement Number 

lll Not a Variable Name 

112 Illegal Logical Form Operator 

113 Data Pool Overflow 

114 Literal String Too Large 

115 Invalid Data List Element in I/0 
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116 Unbalanced DO Nest 

117 Identifier Too Long 

118 Illegal Operator 

119 Mismatched Parenthesis 

120 Consecutive Operators 

121 Improper Subscript Syntax 

122 Illegal Integer Quantity 

123 Illegal Hollerith Construction 

124 Backwards DO reference 

125 Illegal Statement Function Name 

126 Illegal Character for Syntax 

127 Statement Out of Sequence 

128 Missing Integer Quantity 

129 Invalid Logical Operator 

130 Illegal Item Following INTEGER or 
REAL or LOGICAL 

131 Premature End Of File on Input Device 

132 Illegal Mixed Mode Operation 

133 Function Call with No Parameters 

134 Stack Overflow 

135 Illegal Statement Following Logical IF 

136 Wrong Number of Subscripts 

137 File Not Found 


Warnings: 


Duplicate Statement Label 

Illegal DO Termination 

Block Name = Procedure Name 

Array Name Misuse 

COMMON Name Usage 

Wrong Number of Subscripts 

Array Multiply EQUIVALENCEd within a Group 
Multiple EQUIVALENCE of COMMON 

COMMON Base Lowered 

Non-COMMON Variable in BLOCK DATA 

10 Empty List for Unformatted WRITE 

11 Non-Integer Expression 

12 Operand Mode Not Compatible with Operator 
13 Mixing of Operand Modes Not Allowed 


WOW DWAIN UW & WwW KY © 


14 Missing Integer Variable 

15 Missing Statement Number on FORMAT 

16 zero Repeat Pactor 

17 zero Format Value 

18 Format Nest Too Deep 

19 Statement Number Not FORMAT Associated 
20 Invalid Statement Number Usage 

21 No Path to this Statement 


22 Missing Do Termination 

23 Code Output in BLOCK DATA 

24 Undefined Labels Have Occurred 
25 RETURN in a Main Program 
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26 STATUS Error on READ 

27 Invalid Operand Usage 

28 Punctron with no Parameter 

29 Hex Constant Overflow 

30 Division by Zero 

32 Array Name Expected 

33 Illegal Argument to ENCODE/DECODE 
3.2 FORTRAN Runtime Error Messages 


Code Meaning 


Warning Errors: 


IB Input Buffer Limit Exceeded 

TL Too Many Left Parentheses in FORMAT 
OB Output Buffer Limit Exceeded 

DE Decimal Exponent Overflow 


(Number in input stream had 
an exponent larger than 99) 
IS Integer Size Too Large 
BE Binary Exponent Overflow 
IN Input Record Too Long 
OV Arithmetic Overflow 


CN Conversion Overflow 

on REAL to INTEGER Conversion 
SN Argument to SIN Too Large 
A2 Both Arguments of ATAN2 are 0 


IO Illegal I/O Operation 

BI Buffer Size Exceeded During Binary I/0 
RC Negative Repeat Count in FORMAT 

FW FORMAT Field Width is Too Small 


Fatal Errors: 


ID - Illegal FORMAT Descriptor 

FO FORMAT Field Width is Zero 

MP Missing Period in FORMAT 

IR Real Number Written to INTEGER Format Field 

IT I/O Transmission Error 

ML Missing Left Parenthesis in FORMAT 

DZ Division by Zero, REAL or INTEGER 

LG Illegal Argument to LOG Function 
(Negative or Zero) 

S Illegal Argument to SQRT Function (Negative) 

DT Data Type Does Not Agree With FORMAT 
Specification 

EP EOF Encountered on READ 
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Runtime errors are surrounded by asterisks as 
follows: 


*kEPW** at address XXXX** 


The location of the error is disclosed also. Fatal 
errors cause execution to cease (control is 
returned to the operating system). Execution 
continues after a warning errcr. However, after 20 
warnings, execution ceases. 


NOTE 


It is possible, in rare cases, to get a 
FORTRAN-80 internal error, as designated by 
the error code %*??", This indicates an 
internal malfunction of the runtime. If 
you get the "??" error code, contact 
Microsoft and report the conditions under 
which the message appeared. 
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CHAPTER 4 


LINK-80 LINKING LOADER 


The .REL files which MACRO-80 creates are not executable. 
To make a REL file executable, you need to load and link the 
REL file with the LINK-80 linking loader. The result is.) an 
executable object file. Version 3.44 (only) of LINK-80 is 
provided for use with FORTRAN-80. 


Loading means physically placing the file in memory = and 
assigning absolute addresses to the code and data in place 
of the relative addresses assigned by the assembler. Tas 
1s one of the required steps for converting a relocatabie 
(REL) file into an executable (COM) file. 


Linking means that each loaded file (or module) that directs 
program flow outside itself (by a CALL, an EXTERNAL symbol, 
Or an Include) will be "linked" to the module that contains 
the corresponding code. 


LINK-80 can also save the assembled-and-linked program as an 
executable object program on disk in aeéfile with the 
extension .COM. Consequently, any time you wish to run your 
program, you need only insert the disk which contains your 
COM file into an appropriate disk drive and "call". yecur 
program -- a simple process of typing in the filename you 
used to save the program, followed by a carriage return. 


4.1 INVOKING LINK-80 


To invoke LINK-80, enter: 


L8 0 
The program file L80.COM will be loaded. LINK-80 will 
display an asterisk (*) to indicate that the linking loader 
is ready to accept a command. The REL file(s) you want 


link-loaded must be available in a disk drive. If you have 
onty one drive, you will need to swap diskettes in the drive 
at each step of the link-loading process. 
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4.2 LINK-80 COMMANDS 


LINK-80 commands are filenames and switches. 


You can enter your commands to LINK-80 one at a time; Or, 
you can enter all of your commands (including L80) on one 
line. 


A command line has a flexible format, allowing you a number 
of options for luading and linking files and for performing 
other operations. The basic rule for LINK-80 commands 15 
that files are loaded in the order they are named, beginning 
at the (default) address 103H under CP/M. Even though the 
files will be loaded in the order entered, you do not have 
to enter the files in the order of execution. LINK-80 
places a jump instruction at address 100H-102H which jumps 
to the start address of the first instruction to be 
executed, regardless of its location in memory. 


LINK-80 can perform about eleven different tasks. Even 
though you could use them all, you will rarely use more than 
three or four at a time. 


When you enter a command to LINK-80, LINK-80 returns an 
asterisk (*) prompt that tells you to enter another command. 
For example: 


A>L80<RETURND> 

*/switch<RETURND 

*fi lename<RETURN> 
*/switch<RETURND 

*fi lename/switch<RETURND> 
*/E<RETURN> (to exit LINK-80) 


Note that all of the above lines may be entered as one line. 
For example: 


L80 /switch,filename/switch,filename/switch/ EXRETURN> 


This shows further the flexibility of the LINK-80 command 
line. 


Although entering each command on a separate line is_ slow 
and tedious, the advantage is, especially if you are new to 
a linking loader, that you know at all times what function 
LINK-80 1s performing. 
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4.2.1 Pilenames 


Files processed by LINK-80 are REL files. A filename 
commands LINK-80 to load the named file (also called a 
module). If any file has been loaded already, a filename 
also commands LINK-80 to link the loaded files as required. 
Normally each linking session requires at least two 
filenames. One filename directs LINK-80 which REL file to 
load and link; the other commands’ LINK-80 to save the 
executable code ina file with the specified name. 


If you enter only one filename during the link session, 
either the COM file will not be saved (in which case you may 
have wasted your time), or LINK-80 will return the error 
message 


?NOTHING LOADED 


Note, however, that if you enter only one filename followed 
by the /G_ switch, the COM file will not be saved, but the 
program will execute as soon as LINK-80 is finished loading 
and linking. (Refer to the description of the switches in 
the next section.) 


You may enter as many filenames as will fit on one line. 
The files named may be REL files in different languages 
(BASIC, COBOL, FORTRAN, Or assembly) or runtime library REL 
files for any of the high-level programming languages. (For 
exact procedures for high-level language REL files, see the 
documentation included with the high-level language 
compiler.) Obviously, compiler information for FORTRAN-80 is 
given in Section 2. 


When LINK-80 is finished, the results are saved inthe file 
named by the programmer in the command line (the filename 
followed by a /N -- see below, Section 4.2.2, Switches). 
LINK-80 gives this filename the extension .COM. 


A filename command in LINK-80 actually means a file 
specification. A file specification includes a device 
designation, a filename, and a filename extension. The 
format of a file specification is: 


dev: filename .ext 


The "dev:" designation defaults to the currently logged 
disk drive. Alternatively, device designation "A:" or "B:" 
may be specified. The input filename extension “.ext" 
defaults to .REL and the output filename extension to .COM. 
Alternatively, the filename extension can be specified by 
using any three characters desired by the user when entering 
the filename. 
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Switches command LINK-80 to perform functions besides 
loading and linking. Switches are letters preceded by slash 
marks (/). You can place as many switches as you need in a 
single command line, but each switch letter must be preceded 
by a slash mark (/). For example, if you want to link and 
load a program named NEIL, save an image of it on diskette, 
then execute the program, you need two filenames and _ two 
Switches, so you would enter the commands: 


NOIL, NEIL/N/G<RETURND> 


LINK-80 saves a memory image on diskette (the /N = switch), 
then runs the NEIL program (the /G switch). 


Some switches can be entered by themselves (/E, /G, /R, /P, 
/D, /U, /M, /O, /H). Some switches must be appended to the 
filename they affect (/N, /S). Some switches work only if 
other switches are also entered during the LINK-80 session 
(/X, /Y). Some switches must precede any filenames you want 
affected (/P, /D). Some switches command actions that are 
deferred until the end of the LINK-80 session (/N, /X, /Y). 
Some switches command actions that take place when entered 
(/S, /R -- a filename entered without a switch appended acts 
this way, too). These "rules of: behavior” should be kept in 
mind when entering LINK-80 commands. See the descriptions 
for each switch for full details of its action, 


The chart below summarizes the switches by function. Full 
descriptions of the switches by function follow the chart. 


BE CAREFUL: Do not confuse the LINK-80 switches with the 
MACRO-80 switches, if you are using MACRO-80. 
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Table 4-1. LINK-80 Switches. 


wm ce ee ee ee ee es es es ee ee es es es es es es see es es es es eo we es ee eee es 


| FUNCTION | SWITCH | ACTION 

| Execute | /G | Execute .COM file then exit to 
operating system. 

| | /G:Name | Set .COM file start address 


equal to value of Name, execute 
. COM file, then exit to 
operating system. 


we ew ewe ee $n ee ee a ee ee ee ee ee ee ee ee ee ee 
Exit JE Exit to operating system. 

/E:Name Set .COM file Start address 
equal to value of Name, then 
exlt to operating system. 

ee $a we mm mw ew nw wm HRM eK KM HK KM mem mM mem mm rr nrerrrr rrr er rrr rrrrerrree 
| Save | /N | Save all previously loaded 
programs and subroutines uSing 
filename immediately preceding 
/N. 
| | /N:P | Alternate form of /N; save 
only program area. 
~— ee ee ew ewe @ ow ow oe ewe wm mM wm wm ew ew mM eH pe KM wm em KM em mm wm rrr rrr rare 
| Address /P Set start address for programs 
Setting and data. If used with /0D, “Pp 
sets only the program start. 
| | /D | Set start address for data area 
only. 
| | /R | Reset LINK-80. 
ee wee we we new $—-— — oe en a a a a 3 a a a nn nn ee ee ee ee ee 
| Library /S Search the library named 
Search immediately preceding /S. 
ew eee eee $---- - ~~ $e a a an an a a an nn ee rn er er rer eee ree 
| Global /U List undefined globals. 
Listing 
/™ List complete global reference 
map. 
mee we ww ew ee ew em = me a a am a nT 
| Radix | /O Octal radix. 
| Setting 
/ 4 Hexadecimal radix (default). 
—-—--- eee ee $a ee ea a a a a na a a a rrr rrr 
Special /X | Save "COM" file in Intel ASCII 
| Code | Hex format. Requires JN 
switch. Gives "COM" file the 
extension .HEX. 
| | /X | Creates a special file for use 
with SID/ZSID debugger. 
Requires /N and /E_ switches. 
Gives special file the 


extension .SYM. 
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At least two switches will probably be used in every linking 
session. These switches belong to the first three Functions 
-- Execute, Exit, and Save, 


EXECUTE 
Switch Action 
/G The /G switch causes’ LINK-80 to load the 


filename(s) , entered in the command line, to link 
the program(s) together, then to execute the 
link-loaded program. After the program run, your 
computer returns to operating system command 
level. For example, 


L80 NEIL,NEIL/N/G 


links NEIL.REL, saves the result in a disk file 
named NEIL.COM, then exits to the operating 
system. 


Execution takes place as soon as the command line 
has been interpreted. Just before execution 
begins, LINK-80 prints three numbers and a_e BEGIN 
EXECUTION message. These three numbers can be 
very useful to you in developing future assembly 
language programs. The first number is the start 
address of the program. The second number 1s the 
address of the next available byte; that is, the 
end address plus one byte. The third number is 
the number of 256-byte pages taken up by the 
program (the difference between the start address 
and the end address converted to 256-byte pages). 


If you do not want to save the .COM file, use the 
/G switch and enter only one filename on the 


command line. For example: 

L80 NEIL/G 
But Remember: No COM file is created (since you 
did not include /N). To run the program again, 


you willl have to run LINK-80 again. 
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/G:<name> The /G:<name> switch performs exactly like the 
plain /G -switch but with one additional feature. 
<name> is a global symbol which was defined 
previously in one of the modules which is being 
linked and loaded. When LINK-80 sees <name>, it 
uses <name> as the start of the program and loads 
the address of the line with <name> as its LABEL 
into the jump instruction at 100H-102H. 


The value of this switch (and of /E:<name> below) 
is the ability to tell LINK-80 where to start 
execution when the assembled modules do not make 
this clear. Usually this is no problem because 
you link in a high-level language program (which 
LINK-80 takes as the main program by default), or 
you link only assembly language modules and only 
one has an END <name> statement to signal LINK-80 
which assembly language program to execute first. 
But if two or more assembly language modules 
contain an END <name> statement, or if none of the 
assembly language modules contain an END <name> 
statement, then /G:<name> tells LINK-80 to use 
this module as the starting point for execution. 


Programmers who want to execute an assembly 
language module before a high-level language 
program should use a CALL or INCLUDE statement at 
the beginning of the high-level language program 
to cause execution of the assembly language module 
before execution of the high-level language 
program. 
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EXIT 
Switch Action - 
/E Use /E to link and load a program and perform some 


other functions on the files (for example, save it 
on a diskette) when you do not want to run the 
program at this time. When LINK-80 has finished 
the tasks, it will exit to the operating system. 


(The /G switch is the only other switch which 
exits LINK-80.) 


When linking is finished, LINK-80 outputs’ three 
numbers: Start address, next available byte, 
number of 256-byte pages. 


/E:<name> The /E:<name> switch performs exactly like the 
plain /E switch but with one additional feature. 
<name> is a global symbol which was defined 
previously in one of the modules which is being 
linked and loaded. When LINK-80 sees <name>, it 
uses <name> as the start of the program and loads 
the address of the line with <name> as the LABEL 
into the jump instruction at 100H-102H. 


The value of this switch (and of /G:<name> above) 
is the ability to tell LINK-80 where to start 
execution when the assembled modules do not make 
this clear. Usually this is no problem because 
you link in a high-level language program (which 
LINK-80 takes as the main program by default), or 
you link only assembly language modules and only 
one has an END <name> statement to signal LINK-80 
which assembly language program to execute first. 
But if two or more assembly language modules 
contain an END <name> statement, or if none of the 
assembly language modules contain an END <name> 
statement, then /E:<name> tells LINK-80 to use 
this module as the starting point for execution. 


Programmers who want to execute an assembly 
language module before a high-level language 
program should use a CALL or INCLUDE statement at 
the beginning of the high-level language program 
to cause this order of execution. 
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SAVE 
Switch Action 
/N The /N switch causes the assembled-linked program 


to be saved ina disk file. It is important that 
a filename always be specified for the /N switch. 
If you do not specify an extension, the default 
extension for the saved file is  .COM. The COM 
filename will be the name the programmer appends 
the /N switch to. The /N switch must immediately 
follow the filename under which you wish to save 
the results of the link-load session. 


The /N switch does not take effect unless a /E or 
/G Switch follows it. 


The most common error programmers make with the /N 
Switch is to forget that they must specify at 
least two filenames; one as the file to be linked 
and another one as_ the name for the file to be 
saved. Therefore, at a minimum the command line 
should include: 


L80 NEIL,NEIL/N/G 


The first filename NEIL is the file to be loaded 
and linked; the second filename NEIL is the name 
for the COM file that will save the result of the 
link-loading session. 


It 1s, of course, possible to specify filenames in 
any order. For example: 


L80 NEIL/N,ASMSUB1,ASMSUB2,BASPROG/G 


Here LINK-80 will load and link the files BASPROG, 
ASMSUB1, and ASMSUB2; then save the result in the 
file named NEIL. 


From these two examples, it 1s possible to. see 
that the filename followed by the /N save switch 
is not loaded; it is only a specification for an 
output file; you must also always name at least 
one input file, too. - 

You will use this switch almost every time you 
link a REL file because there is no other way to 
save the result of a link-load session and because 
not saving the result means you would have to link 
load again to run your program. 

Once saved on disk, you need only type the COM 
filename at operating system command level to run 
the program, 
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/N:P By default, LINK-80 saves both the program and 
data areas inthe COM file. If you wish to save 
only the program area to make your disk files 
smaller, use the /N switch in the form /N:P. With 
this switch set, only the program code will be 
saved. 


ad 


Two of these switches (/N plus either a /G or a /E type) are 
all the switches required for most LINK-80 operations. Some 
additional functions are available through the use of other 
Switches which allow programmers to manipulate the LINK-80 
processes in more detail. The switches which turn on these 
additional functions are arranged in categories according to 
type of function. The function of each category is defined 
by the category name. 
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ADORESS SETTING 


Switch Action 
/P The /P switch 1s used to set both the program and 
data origin. If you do not enter the /P switch, 


LINK-80 performs this task automatically, using a 
default address for both program and data. (103H 
for CP/M) 


The format of the /P switch 1S: 


/P:<address>, 


The address value must be expressed in the current 
radix. The default radix is hexadecimal. 


The ,P switch 1S designed to allow you to place 
program (or code) segments at addresses other than 
the default. The default value for the /P switch 
1s LO3H. 


REMEMBER: The /P Switch takes effect as soon as 
lt is seen, but 1t does not affect files already 
loaded. So be sure to place the /P switch before 
any files you want to load starting at the 
specified address. The /P switch and /D_ switch, 
when used, must be separated from the REL filename 
by a comma. For example, 


L80 ‘P:103,NEIL,NEIL/N/E 


The /P switch affects primarily the CSEG code in 
your assembly language program. If /P is given 
but not /’D, both data and program (CSEG and DSEG) 
areas wlll be loaded starting at the /P:<address>. 
OSEG (and any COMMON areas) will be loaded first. 
If both /P and /D switches are given, /P sets the 


Start of the CSEG area only. Normally, unless 
your programs are all CSEG, you will use /P and /D 
together. 


Note especially that ASEG areas are not affected 
by the /P switch. So be careful to set the /P 
address outside any ASEG areas unless you want the 
program or data areas to write over the ASEG 
areas. 
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YOu may enter more than one /P switch during a 
Single link session to place different program 
(code) segments at addresses which are not end to 
end. LINK-80 will automatically place one program 
segment (CSEG) after the next. YOu can cause 
space to be left between modules. However, some 
restrictions one the placement of modules apply: 


l. Be sure that program areas do not overlay one 
another. LINK-80 returnS a warning error 


message if they do. 


2. Be Sure that the program areas are not split 
by data or COMMON areas; that 1S, a CSEG at 
200H, a DSEG at 300H, and another CSEG at 400H 
1s illegal. LINK-80 returns a fatal error in 
this case. 


when the loading session is all done, LINK-80 
wants to see a segment of memory loaded with data 
and COMMON and another segment loaded with program 
code. The code segments may have gaps between the 
modules as long as a data segment is not’ loaded 
between the start of the first code segment module 
and the end of the last code segment module, and 
vice versa. So, placing DSEG modules at 
103H-115H, 150H-165H, 170H-175H, and CSEG modules 
at 200H-250H, 300H-350H, 400H-450H 1s acceptable. 
LINK and 80 wili show Data between 103H and 175H 
and Program between 200H and 450H. 


Note that any gaps you leave may contain data or 
program code from a previous program. LINK-80 
does not initialize gaps to zero or null. This 
could cause unpredictable results. 


ae) The ,D switch sets the origin for DSEG and COMMON 
areas. If you do not enter the /D switch, LINK-80 
verforms this task automatically, using a default 
address for botn data and program. (103H for 


CP/M) 
The format for the /D switch is: 


/D:<address>, 


The address for the /D switch must be in the 
Current radix. The default radix is hexadecimal. 
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The /D switch is designed to allow you to place 
data and COMMON segments at addresses other than 
the default. The default value for the /D- switch 
is 103H. The /D switch must be separated from the 
REL filenames by a comma. For example, 


L80 /D:103,NEIL,NEIL/N/E 


When the /P switch 1s used with the /D switch, 
data and common areas load starting at the address 
given with the /D switch. (The program will be 
loaded beginning at the program origin given w:th 
the /P switch.) This is the only occasion when the 
address given in /P: 1s the start address for the 
actual program code. 


REMEMBER: The /D switch takes effect as soon as 
LINK-80 "sees" the switch, so the /D switch has no 
effect on programs or data already loaded. 
Therefore, it iS important to place the /D switch 
(as well as the /P switch) before the files you 
want to load starting at the address specified. 


YOu may enter more than one /D switch during a 
Single link session to place different program 
(code) segments at addresses which are not end to 
end. LINK-80 will automatically place one data 
segment (DSEG) after the next. You can cause 
Space to be left between modules. However, some 
restrictions on the placement of modules apply: 


l. Be sure that data areas do not overlay one 
another. LINK-80 returnS a warning error 
message if they do. 


2. Be sure that the data areas are not split by 
program areas; that is, a DSEG at 200H, a 
CSEG at 300H, and another DSEG at 400H is 
illegal. LINK-80 returns a fatal error in 
this case. 
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When the loading session is all done, LINK-80 
wants to see a segment of memory loaded with data 
and COMMON and another segment loaded with program 
code. The data segments may have gaps between the 
modules as long aS a program segment is not loaded 
between the start of the first data segment module 
and the end of the last data segment module, and 
vice versa. So, placing DSEG modules at 
103H-115H, 150H-165H, 170H-175H, and CSEG modules 
at 200H-250H, 300H-350H, 400H-450H is acceptable. 
LINK and 80 will show Data between 103H and 1758 
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and Program between 200H and 450H. 


Note that any gaps you leave may contain data or 
program code from a previous program. LINK-80 
dces not initialize gaps to zero or null. This 


could cause unpredictable results. 


ADDITIONAL NOTE FOR /P AND /D SWITCHES 


If your program is too large for the loader, you 
will sometimes be able to load it anyway if you 
use /D and /P together. This way you will be able 
to load programs and data of a larger combined 
total. While LINK-80 is loading and linking, it 
builds a table consisting of five bytes for each 
program relative reference. By setting both /D 
and /P, you eliminate the need for LINK-80 to 
build this table, thus giving you some extra 
memory to work with. 


To set the two switches, look to the end of the 
List file. Take the address you decided for the 
/D switch (where you want the DSEG to. start 
loading), add the number for the total of data, 
add that number to 103H, add another 100H+1, #£=and 
the result should be the /P: address for the 
start of the program area. The /D- switch should 
be set at 103H or higher (D:103). 


The /R switch “*resets™ LINK-80 to its initialized 
condition. LINK-80 scans the command line before 


it begins the functions commanded. As soon 


as 


LINK-80 sees the /R switch, all files loaded are 
ignored, LINK-80 resets itself, and the asterisk 
(*) prompt is returned showing that, LINK-80 1s 
running and waiting for you to enter a command 


line, 
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LIBRARY SEARCH 


Switch Action 
/S The /S switch causes LINK-8N to search the file 
named immediately prior to the switch for 


routines, subroutines, definitions for globals, 
and so on. In a command line, the filename with 
the /S switch appended must be separated from the 
rest of the command line by commas. For example: 


L80 NEIL/N,MYLIB/S,NEIL/G 


The /S switch 1s used to search library files 
only, including a library you constructed, using 
the LIB-80 Library Manager (see Utility Manual.) 


GLOBAL LISTING 


Switch Action 
/U The /U switch tells LINK-80 to list all undefined 
globals. The /U works only in command lines that 
do not include either a /G or a /E_ Switch. Note 
that if your program contains any undefined 


globals, LINK-80 lists them automatically, unless 
the command line also contains a /S (library 
search) switch. In these cases, enter only the /U 
Switch, andthe list of undefined globals will be 
listed. Use CTRL-S to suspend the listing if you 
want to study a portion of the list that would 
scroll off the screen. Use CTRL-Q to restart the 
listing. 


The various runtime libraries provide definitions 
for the globals you need to run your high-level 
language programs. 


In addition to listing undefined globals, the /U 
Switch directs LINK-80 to list the origin, end, 
and size of the program and data areas. These 
areaS are listed as one lump area unless both the 
/P and /D switches are set. If both /P and /D are 
set, the start, end, and size of both areas are 
listed separately. 
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/™ The /M switch directs LINK-80 to list all globals, 
both defined and undefined, on the screen. The 
listing cannot be sent to a printer. In the 


listing, defined globals are followed by their 
values, and undefined globals are followed by an 
asterisk (*)., 


In addition to listing all globals, the /M_ switch 
directs LINK-80 to list the origin, end, and size 
of the program and data areas. These areas are 
listed as one lump area unless both the /P and /D 
Switches are set. If both /P and /D are set, the 
Start, end, and size of both areas are listed 
separately. 


RADIX SETTING 
Switch Action 


/O The /O switch sets the current radix to Octal. If 
you have a reason to use octal values in your 
program, give the /O switch in the command line. 
If you can think of no reason to switch to octal 
radix, then there 1S no reason to use this switch. 


J 4 The /H switch resets the current radix to 
Hexadecimal. Hexadecimal is the default radix. 
You do not need to give this switch in the command 
line unless you previously gave the /O switch and 
now want to return to hexadecimal. 


SPECIAL CODE 


Switch Action 
/X The /X switch saves the "COM" file in Intel ASCII 
HEX format. The /X switch requires tne /N sSwitcn 
appended to the same filename as the /xX. For 
example: 


L80 NEIL,NEIL/X/N/E 


The file that is saved with the /X switch set 15 
given the filename extension .HEX. 


The primary use of the /X switch is to prepare 
programs to be burned into PROMS. The hex format 
waS originally developed to Facilitate the 
movement of programs from one machine to another. 
The hex format provides more code checking than 
object code does. Also, a HEX file can be edited 
with some sophisticated line editors. 
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JY The /Y switch saves a file in a special format for 
use with Digital Research's Symbolic Debuggers, 
SID and ZSID. The /Y switch requires the /N_ and 


the /E (not /G) switches be given in the command 
line. For example: 


L80 NEIL,NEIL/Y/N/E 


The file that is saved with the /Y switch set i185 
given the filename extension .SYM. A COM file 
will also be saved. So the sample command line 
above creates both NEIL.COM and NEIL.SYM. The SYM 
file contains the names and addresses of all 
globals, which allows you to use Digital 
Research's Symbolic Debuggers SID and 2Z2SID with 
the SYM file. Note that SID and ZSID debuggers are 
not needed with FORTRAN-80 butcan be used with 
MACRO-80. 


4.3 ERROR MESSAGES 

Errors encountered during the running of LINK-80 will return 
messages, most preceded by either the symbol ? or the 
symbol &. No error codes are returned, so once you 
understand the meaning of the message, error recognition 
should be easy. 

?No Start Address 


The /G switch was issued, but no main program has 
been loaded. 


?Loading Error 


The last file given for input was not ae properly 
formatted LINK-80 object file. 


2?O0ut of Memory 

Not enough memory to load the module. 
?Command Error 

Unrecognizable LINK-80 command. 


2<filename> Not Found 


<filename>, as given in the command string, did not 
exist. 
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?Start Symbol - <name> - Undefined 


The /E:Name or /G:Name switch was given, but the 
Name specified was not defined, 


?Nothing Loaded 


A <filename>/S or /E or /G was given, but no object 
file was loaded. That is, an attempt was made to 
search a library, to exit LINK-80, or to execute a 
program, when in fact nothing had been loaded. For 
example: 


TEST/N/E 


Results in “?Nothing Loaded" because TEST/N names 
TEST.COM, but does not load TEST.REL. 


To load a file, enter the filename. To save a 
file, enter ae filename followed vy the /N switch 
and either a /E or a /G Switch. For example, any 


of the following sets of commands should work: 
L80 NEIL,NEIL/N/E 
Or 
L80 
*NEIL 
*NEILL/N/E 


Or 


L80 NEIL/N,NEIL/E 


?Can't Save Object File 


A disk error occurred when the file was being 
saved. Usually, this means that the dis«x is fall 
or that it is write-protected. 
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elcqd COMMON Larger ‘'XXXXXX/ 


Pron inciude ClLMMON blocks, 
ze of *ne FCrre*t COMMON block 
née of vemor’ needed before 
ed, {fF a suosequent mcedule 
Larger “1am tne first one 
ns fehis urror message, I+ 
= 2Anmiticon of tne COMMON oO1LOCcK 
ed :n tne roduies .oaded was not 
fined witrt that 7ame. Reorder 
ding sequence Or change COMMON biocx 
nitions so that all blocks are tne Same s1Ze. 
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@Mult. Def. Global YYYYYY 


You have one global (PUBLIC) symbol -name YYYYYY 
with more than one definition. Usually, two or 
nore of the modules being loaded have declared the 
same symbol name as PUBLIC. 


%’Overiaying Program Area _ ,Start = XXXX 
,Fublic = <sympol name> (xxxx) 
»External = ~symbo!l name> (xxxx) 


Tsually tni1s occurs when 21th 
an address inside the area 
snould reset tne switch addres 


(ct oD 

Ww @na 
m- 
(D 


sv LCINK-80. You 


Dor /P 15s set te 
rn 


Oove L.O2K. It mav 
dr programs loaded 


aiso occur if you set addressee 

aster some initial programs were ioaded and thre 
AgeressSeS were not set Align ensugn. For exampie, 
.£ MYPROG 18 larger tnan 147 bytes and you enter 
“ne commands; 


MYPRCG,/P:150,SUBRL,FUNNY/N/VE 


you will receive tne §Overlay:irg Program Area error 
message. 


eCcverlaying Oata Area ,Start = XXXX 
,Public = <sympol name> (xxxx) 
, External <symbol name> (xxxx) 


The /D and /P switches were set too close together. 
For example, if /D was given a higher address than 
“P put not high enough to be beyond the end of the 
program acea, when the program is loaded, the top 
and will be laid over the data area. Or, 1f “D 1s 
lower than /P, /P was not high enough to prevent 
the beginning of the program from starting in the 
area already ioaded with data. 
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2Intersecting Program Area 
Or 
?Intersecting Data Area 


The program and data areas intersect and an address 
or external chain entry is in this intersection. 
The final value cannot be converted ts a current 
vwalue since 1t 18S in the area intersection, 


Origin Acove Loader Memory, Move Anyway (Y or N)? 
Or 
Origin Below Loader Memory, Move Anyway (Y or N)? 


This message will appear only after either the /E 
or tne /G switch command was given to LINK-80. If 
LINK-80 has not enough memory to load a module but 
a ‘E or /G has not been entered, you will receive 
rhe Cut of Memory message. 


.oad modules only between its first 
lr memory and the too of available memory. 
program 1$ too iarje for this space or 1f 
a /D and/or /,P switch too high for tne size 
orogram, LINK-80 run out of memory = and 
the Origin Above Loader Memory message. 


Cc) 
va 
fy 
2) 


ba. 4” 
choy BS 
72 tb 


bm in @® 
ih 


AO WM 
C 
wry rt 


if you set a /D and/or /P switch below the first 
acddress of LINK-80 (lCOH for CP/M), LINK-80 returns 
“ne Crigin Belcw Loader Memory message. This 
prevents you from ioading your program into memory 
designated for the operating system, 


If a Y<CR> 1S given, LINK-80 will move the area and 
continue. Tf anything else is given, LINK-80 will 
2xit. In 2ither case, if the “;N switch was given, 
“ne aumtiace willl already have been saved. 
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SECTION 5 


FORTRAN-80 Disk Files 


5.1 Default Disk Filenames 


A disk file (random or sequential) that is OPENed 
Dy a READ or WRITE statement has a default name 
that depends upon the LUN and the operating system. 
The default filenames for CP/M are: 


FORTO6.DAT, FORTO7.DAT,..., FORT1LO.DAT 


The LUN 1S incorporated into the default file name. 


5.2 CALL OPEN 


Instead of using READ or WRITE, a disk file may b» 
OPENed using the OPEN subroutine (see the 
FORTRAN-80 Reference Manual, Section 8.3.2). The 
format of an OPEN call under CP/M is: 


CALL OPEN (LUN, Filename, Drive) 
where: 


LUN = a Logical Unit Number to be associated with 
the file (must be an Integer constant or Integer 
variable with a value between 1 and 10). 


Filename = an ASCII name which the operating system 
will associate with the file. The Filename should 
be a Hollerith or Literal constant, or ae variable 
Or array name, where the variable or array contains 
the ASCII name. The Filename should be 
blank-filled to exactly eleven characters. 


Drive = the number of the disk drive on which the 


file exists or will exists (must be an Integer 
constant or Integer variable within the range 
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allowed by CP/M). If the Drive specified is 0, the 
currently selected drive 18s assumed; 1 is drive 
A, 218 drive B, etc. 


5.3 Record Length 


The record length of any file accessed randomly 
under CP/M is assumed to be 128 bytes (1 sector). 
Therefore, it is recommended that any file you 
wish to read randomly be created via FORTRAN 
(or Microsoft BASIC) random access Statements. 
Random access files created this way (using either 
binary or formatted WRITE statements) always have 
128-byte records. If the WRITE statement does 
not transfer enough data to fill the record to 128 
bytes, then the end of the record is filled with 
zeros (NULL characters). 
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APPENDIX A 


FORMAT OF LINK COMPATIBLE OBJECT FILES 


This appendix contains reference material for users who wish 
to know the load format of LINK-80 relocatable object files. 
None of this material is necessary to the operation of ALDS. 
There is nothing in the format material presented here which 
can be manipulated by the user. The material is highly 
technical, and it is not presented in any tutorial manner. 


LINK-compatible object files consist of a bit stream. 
Individual fields within the bit stream are not aligned on 
byte boundaries, except as noted below. Use of a bit stream 
for relocatable object files keeps the size of object files 
to a minimum, thereby decreasing the number of disk 
reads/writes. 


There are two basic types of load items: Absolute and 
Relocatable. The first bit of an item indicates one of 
these two types. If the first bit is a 0, the following 8 
bits are loaded as an absolute byte. If the first bit is a 
1, the next 2 bits are used to indicate one of four types of 
relocatable items: 


00 Special LINK item (see below). 


01 Program Relative. Load the following 16 bits 
after adding the current Program base. 


10 Data Relative. Load the following 16 bits 
after adding the current Data base. 


ll Common Relative. Load the following 16 bits 


after adding the current Common base. 


Special LINK items consist of the bit stream 100 (read 
one-zero-zero) followed by: 


a four-bit control field 

an optional A field consisting of a two-bit address 
type that is the same as the two-bit field described 
above, except 00 specifies absolute address 

an optional B field consisting of 3 bits that give a 


symbol length and up to 8 bits for each character of 
the symbol. 
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A general representation of a special LINK item is: 
1 00 xxxx yy nn zzz + characters of symbol name 


A field B field 


where: xxxx is four-bit control field (0-15 below) 
yy is two-bit address type field 
nn is sixteen-bit value 
ZZzz is three-bit symbol length field 


The following special types have a B-field only: 


0 Entry symbol (name for search) 

1 Select COMMON block 

2 Program name 

3 Request library search 

4 Extension LINK items (see below) 


The following special LINK items have both an A field and a 
B field: 


5 Define COMMON size 

6 Chain external (A is head of address chain, 8B 
is name of external symbol) 

7 Define entry point (A is address, B is name) 


The following special LINK items have an A field only: 


8 External - offset. Used for JMP and CALL to 
externals 
9 External + offset. The A value will be added 


to the two bytes starting at the current 
location counter immediately before execution. 


10 Define size of Data area (A is size) 
ll Set loading location counter to A 
12 Chain address. A is head of chain. Replace 


all entries in chain with current location 
counter. The last entry in the chain has an 
address field of absolute zero. 

13 Define program size (A is size) 
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The following special LINK item has neither an A nor a B 
field: 


15 End file 
An Extension LINK item follows the general format of a 
B-field-only special LINK item, but the contents of the 
B-field are not a symbol name. Instead, the symbol area 
contains one character to identify the type of extension 
LINK item, followed by from 1 to 7 characters of additional 
information. 


Thus, every extension LINK item has the format: 
1 00 0100 111 8s bbbbbb 
where: lll is 3 bits containing the length of the 
field bbbbbb (0 implys 1 since F80 emits 
entry length of 0 for Blank Common), 


s is an eight bit extension LINK item 
sub-type identifier, and 


bbbbbb are 1l to 6 bytes for additional 


information. If used as 8B field for 
name, bbbbbb may be only 6 characters. 


The present extension LINK item sub-types are: 


5 X'35' COBOL overlay segment sentinel 

A X'4l' Arithmetic Fixup (Arithmetic Operator) 
B X'42' Arithmetic Fixup (External Reference) 
Cc X'43' Arithmetic Fixup (Area Base + Offset) 


Descriptions of Sub-types 
Sub-type 5 


When the overlay segment sentinel 18 encountered by 
LINK-80, 111 receives the value 010 (binary), and the 
current overlay segment number is set to the value b+49. 

If the previously existing segment number was non-zero 

and the /N switch is in effect, the data area is written ‘ 
to disk in a file whose name is the current program name 

and whose extension is Vnn, where nn are the two 
hexadecimal digits representing the number b+49 
(decimal). 
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Sub-types A,B,C - 


Sub-types A, B, and C allow the processing of Polish 
Arithmetic text. Items must be read as Reverse Polish 
Expression. One or more Value items (sub-type B or (C) 
are followed by one or more Arithmetic Operators 
(sub-type A) and end with a Store-Result Arithmetic 
Operator (B.STBT or B.STWD). 


All Items are put in the Fixup Table afer any offset 
entries have been converted to final addresses. The 
Polish expression is executed out of the Fixup Table at 
the end of link. . The -regult:-is stored at the PC given 
when the Items were read. 
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SECTION 1 


INTRODUCTION 


FORTRAN iS a universal, problem Or1lented programming 
language designed to simplify the preparation and check-out 
of computer programs. The naine of the language - FORTRAN) - 
1S an acronym for FORmula TRANSlator. 


The syntactical rules for using the language are _ rigorous 
and require the programmer to define fully the 
characteristics of a problem in ae series of precis» 
Statements. These statements, called the source program, 
are translated by a system program called the FORTRAN 
processor into an object program in the machine language of 
the computer on which the program 1s to be executed. 


This manual defines the FORTRAN source language for the 8080 
and Z-80 microcomputers. This language includes the 
American National Standard FORTRAN language as described in 
ANSI document X3.9-1966, approved on March 7, 1966, plus a 
number of language extensions and some restrictions. These 
language extensions and restrictions are described in the 
text of this document and are listed in Appendix A. Existing 
FORTRAN users should first read Appendix A to become 
familiar with the differences between FORTRAN-80 and the 
1966 standard, then read topical information of interest by 
reference from the index and table of contents. New FORTRAN 
programmers will find it helpful to acquire a FORTRAN 
learning book covering the 1966 standard to gain insight 
into the background and methods applicable in FORTRAN 
programming. Sections of interest in this book can then he 
read by referencing the index and table of contents, thereby 
gaining step-by-step familiarity with the language in 
order provided in the learning book. 
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NOTE 


This FORTRAN differs from the 
Standard in a number of ways as indicated in 
Appendix A. Those wishing to run existing 
FORTRAN programs should bear the following in 
mind: 


l. An existing FORTRAN-80 program 
can be run as existing, provided 
you have source code. The only 
changes that might possibly be 
required would be system dependent, 
such as operating system variations 
or device designators, etc. 


2. An existing FORTRAN-66 program 
can be run from source code with 
Minor changes catering for language 
differences (see Appendix A). Error 
codes on compilation will indicate 
areas of attention necessary. 


3. Other programs, such as those in 
FORTRAN-77, will require more 
extensive user study and revision. 
See Appendix A, index and table of 
contents to determine revisions 
necessary. 


Examples are included throughout the manual to illustrate 
the construction and use of the language elements. ‘THe 
programmer should be familiar with all aspects of tne 
language to take full advantage of its capabilities. 


Section 2 describes the form and components of an FORTRAN-80 
source program, Sections 3 and 4 define data types and 
their expressional relationships. Sections 5 through 9 
describe the proper construction and usage of the various 
Statement classes. 
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° SECTION 2 


FORTRAN PROGRAM FORM 


FORTRAN-80 source programs consist of one program unit 
called the Main rogram and any number of program units 
called subprograms. A discussion of subprogram types and 
methods of “writing and using them is in Section 9 of this 
manual. 


Programs and program units are constructed of an ordered set 
of statements which precisely describe procedures for 
solving problems and which also define information to be 
used by the FORTRAN processor during compilation of the 
object program. Each statement is written using the FORTRAN 
character set and following a prescribed line format. 


2.1 FORTRAN CHARACTER SET 


To simplify reference and explanation, the FORTRAN 
character set is divided into four subsets and a 
name 18 given to each. These are the only 
characters that can be used in writing FORTRAN 
-80 statements. 


NOTE 


If attempting to run non-FORTRAN-80 
programs, note that some other languages 
use additional special characters that 
can be read as data even though they are 
not part of the FORTRAN standard 
character set. Therefore, these source 
programs must be checked for adherence to 
F-80 character rules. 


2.1.1 LETTERS 


A,B,C,D,E,F,G,H,I,J,K,L,M,N,0,P,Q,R,S,T,U, 


Alphabetic characters are used alone or with 
numeric characters to form PORTRAN symbolic names. 
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No distinction is made between upper and lower case 
letters. However, for clarity and legibility, 
exclusive use of upper case letters is recommended. 
It is also recommended that the $ character be 
reserved for system-associated designators. 


2.1.2 DIGITS 
0,1,2,3,4,5,6,7,8,9 


Numeric characters or digits are used to form 
numbers, such as 100 or 10.2, as well as being used 
with alphabetic characters to form symbolic names. 


Strings of digits representing numeric quantities 
are normally interpreted as decimal numbers. 
However, in certain statement3, the interpretation 
is in the Hexadecimal number system in which case 
the letters A, B, C, D, E, F may also be used as 
Hexadecimal digits. Hexadecimal usage is defined 
in the descriptions of statements in which= such 
notation is allowed. 


2.1.3 ALPHANUMERICS 


A sub-set of characters made up of all letters and 
all digits as described above. 


2.1.4 SPECIAL CHARACTERS 


Blank 

Equality Sign 
Plus Sign 

Minus Sign 
Asterisk 

Slash 

Left Parenthesis 
Right Parenthesis 
Comma 

Decimal Point 


es eaNer tu 


Special characters are used to denote arithmetic 
operations, indicate decimal numbers and signed 
numbers, assign values, and separate parts of a 
statement. 


76 


FORTRAN-80 Reference Manual Page 2-3 


NOTES: 

l. The following special characters are classified 
as Arithmetic Operators and are significant in 
the unambiguous statement of arithmetic 
expressions. 


+ Addition or Positive Value 

- Subtraction or Negative Value 
* Multiplication 

/ Division 


They are used as follows: 


X-Y means X minus Y 

X*Y means X times Y 

X/Y means X divided by Y 

X**3 means X raised to the third power 


The characters + and - are also used to denote 
Signed numbers. For example, +8 1S a positive 8 
and -5 is a negative 5. 


2. The other special characters have specific 
application in the syntactical expression of 
the FORTRAN language and in the construction of 
FORTRAN statements. 


The character "=" is used to asSign a value to 
a data item referenced by its symbolic name. 
The statement: 


A=9.0 


means assign the value 9.0 to the data item 
whose symbolic name is A. Hence, statements 
containing “=" are called assignment 
statements. 


The characters +-*/=,'.() are used as FORTRAN 
Statement separators. FORTRAN program 
statements must be written according to precise 
rules, which are explained later. These 
characters are used in a Manner similar to 
punctuation marks are used in English. For 
example, in the statement 


20 FORMAT (F10.4,E13) 
(.,) characters are separators. The character, 


blank, is used in FORTRAN to make statements 
easier to read. It has no other significance. 
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3. Any printable character may appear in a 
Hollerith or Literal field. As indicated 
previously, only valid FORTRAN characters may 
be used in any FORTRAN-80 statement field. 


2.2 FORTRAN LINE FORMAT 


A FORTRAN program line consists of up to. 80 
columns, divided into four fields: 


l. Statement Label (or Number) field- Columns 1 
through 5 


?. Continuation character field- 
Column 6 


3. Statement field- 
Columns 7 through 72 


4. Indentification field- 
Columns 73 through 80 


The identification field is available for any 
purpose the FORTRAN programmer may desire and is 
ignored by the FORTRAN processor. 


The lines of a FORTRAN) Statement are placed in 
Columns 1 through 72 formatted according to line 
types. The four line types, their definitions, and 
column formats are: 


1. Initial Line -- the first or only line of each 
statement. 


1. Columns 1-5 may contain a statement label 
to identify the statement. 


2. Column 6 must be blank. 


3. Columns 7-72 contain all or part of the 
statement. 
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4. An initial line may begin anywhere within 
the statement field. 


_ 


Example: 


C THE STATEMENT BELOW CONSISTS 
C OF AN INITIAL LINE 
C 

A= .5*SQRT(3-2.*C) 


2. Continuation Line -- used when additional lines 
of coding are required to complete a statement 
Originating with an initial line. 


1. Columns 1-5 are ignored, unless Column 1 
contains a C. 


2. If Column 1 contains acC, it i8 a comment 
line. 


3. Column 6 must contain a character other 
than a blank or a zero (0). 


4. Columns 7-72 contain the continuation of 
the statement. 


5. There may be as many continuation lines as 
needed to complete the statement. 


Example: 
C THE STATEMENTS BELOW ARE AN INITIAL LINE 
Cc AND 2 CONTINUATION LINES 
Cc 
63 BETA(1,2) 2 
1 A6BAR**7-(BETA(2,2) ~ASBAR*50 
As 2 +SQRT (BETA(2,1))) 
3. Comment line -- used for source program 
annotation at the convenience of the 


programmer. Comments should identify all 
logical units of coding and provide heading 
information for all program units. Too many 
comments embedded within the code can obscure 
the flow of the code's logic. The use of self- 
defining symbolic names, such as D=2R*T for 
Distance/Rate/Time, will minimize the need for 
embedded comments. 
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Rules for writing comment lines are as follows: 


1. Column 1 contains the letter C. 


2. Columns 2 - 72 are used in any desired 
format to express the comment or they may 
he left blank. 


3. A comment line may be followed only by an 
initial line, an END line, or another 
comment line. 


4. Comment lines have no effect on the object 
program and are ignored by the FORTRAN 
processor except for display purposes in 
the listing of the program. 


Example: 
C COMMENT LINES ARE INDICATED BY THE 
Cc CHARACTER C IN COLUMN 1. 
C THESE ARE COMMENT LINES 
END line -- the last line of a program unit. 
1. Columns 1-5 may contain a statement label. 
2. Column 6 must be blank. 
3. Columns 7-72 contain the END statement. 


4. Each FORTRAN program unit must have an_- END 


1p line as its last line to inform the 


Processor that it is at the physical end of 
the program unit. 


5S. An END line may follow any other type line. 
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statement Label Rules and Use: 

A statement label may be placed in columns 1-5 of a 
FORTRAN Statement initial line and is used for 
reference purposes in other statements. Basically, 
only statements that require referencing from other 
statements must have statement labels, but any 
statement can have a statement label if desired. 
Note, however, that an END statement signifies only 
the end of the source program. Such non-executable 
statements should not have labels. Also, statement 
labels do not have to be in numerical order, but 
consecutive numbering aids in readability. [t is 
recommended that statements be numbered in 
increments of 10 to allow for later ‘in order' 
additions. 


The following considerations govern the use of 
Statement labels: 


l. The label is a positive-signed integer from 1 
to 99999, 


2. The numeric value of the label, leading zeros 
and blanks are not Significant. 


3. A label must be unique within a program unit. 


4. A label on a continuation line 1S ignored by 
the FORTRAN Processor. 


Example: 


C EXAMPLES OF STATEMENT LABELS 
C 
1 
101 
99999 
763 


2.3 STATEMENTS 


Individual statements deal with specific aspects of 
a procedure described in a program unit and are 
classified as either executable or non-executable. 


Executable statements specify actions and cause the 


FORTRAN Processor to generate object program 
instructions. 
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There are three types of executable statements: 


1. Replacement statements. 
2. Control statements. 
3. Input/Output statements. 


Non-executable statements describe to the processor 
the nature and arrangement of data and provide 
information about input/output formats and data 
Initialization to the object program during program 
loading and execution. There are five types of 
non-executable statements: 


l. Specification statements. 

2. DATA Initialization statements. 
3. FORMAT statements. 

4. FUNCTION defining statements. 
5. Subprogram statements. 


The proper usage and construction of the various 
types of statements are described in Sections 5 
through 9. 


2.4 INCLUDE STATEMENT 


One statement that is different than the previously 
mentioned types of statements is the INCLUDE 
Statement. The INCLUDE statement 1S an enhancement 
to the standard FORTRAN-66 statement set, and 
allows a programmer to store frequently used source 
code ina file and include it into currently 
compiling programs as desired. The statement can 
also be used when it iS necessary to divide a 
program into several files for compiling. As a 
result, the various files will be appended as 
needed when the compiler is run. Use of INCLUDE can 
also eliminate the need to repeat an often-used 
sequence of statements in the current source file. 
The format of the statement 1S: 


INCLUDE dev:filename 


where “dev:" is disk drive A or B. 
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- SECTION 3 


DATA REPRESENTATION / STORAGE FORMAT 


The FORTRAN Language prescribes a definitive method for 
identifying data used in FORTRAN programs by name and type. 


3.1 DATA NAMES AND TYPES 


3.1.1 NAMES 


1. Constant - An explicitly stated datum. A 
constant is a fixed quantity whose value does 
not change. 


2. Variable - A symbolically identified datum. A 
variable is identified by a name, has a type 
description, occupies a memory location, and 
has a value that may change. 


3. Array - An ordered set of data in 1, 2 or 3 
dimensions. A one dimension array has a single 
row of array elements. A two dimension array is 
a matrix having one or more rows and one or 
more columns, A three dimension array has one 
Or more rows, one or more columns, and one or 
more ranks. 


4. Array Element - One member of the set of data 
of an array. It occupies a row position (one 
dimensional array), a row and column position 
(two dimensional array), or a row, column, and 
rank (three dimensional array). 

3.1.2 TYPES 

Formats and rules of use for all types are shown in 

Table 3-l. 

1. Integer -- Precise representation of 
whole numbers (positive, negative Or 


zero) having precision to 5 digits in the 
range -32768 to +32767 inclusive (-2**15 to 
2**15-1). 
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2. Real -- Approximations of real numbers, which 
are sometimes called real constants, (positive, 
negative or zero) are represented in computer 
storage in 4-byte, floating-point form. 
Real data are precise to 7+ significant digits 
and their magnitude may lie between the 
approximate limits of 10**-38 and 10**38 (2**- 
127 and 2**127)., 


3. Double Precision -- Approximations of real 
numbers (positive, negative or zero) 
represented in computer storage in 8-byte, 
floating-point form. Double Precision data 
are precise to 16+ significant digits in 
the same magnitude range as real data. 
Because double precision numbers require twice 
as much storage as regular real numbers, and 
because arithmetic operations using double 
precision are slower than single precision, 
double precision numbers should only be used 
when the measurements or computations justify 
such precision. In the vast majority of cases, 
four or five digits of precision will prove 
quite adequate. 


4. Logical -- One byte representations of the 
truth values ‘“‘TRUEB" or “PFALSE" with “FALSE 
defined to have an internal representation 


of zero. The constant  .TRUE. has the 
value -l, however any non-zero value will be 
treated as -TRUE. in a Logical IF 


statement. In addition, Logical types may be 
used as one byte signed integers in the 
range -128 to +127, inclusive. 


S. Hollerith -- A string of any number of 
characters from the computer's character set. 
All characters including blanks are considered 
significant. Hollerith data require one byte of 
storage for each character in the string. 
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6. Extended Integer -- An extended precision 
representation using 32-bit two's complement (four 
8-bit bytes) for 9+ significant digits in the range 
-2147483648 to +2147483647 inclusive (-2**31 to 
2**31-1). 


Integer*4 variables cannot be used as Logical Unit 
Numbers, array indices, implied DO loop indices, or 
as the control variable in computed or assigned 
GOTO statements. 


7. Extended Real -- An extended precision 
representation using 64-bit two's complement (eight 
88-bit bytes) for 16+ significant digits in 
floating-point form. REAL*8 essentially is the same 
as DOUBLE PRECISION. REAL*8 (DOUBLE PRECISION) 
variables must not be used as Logical Unit Numbers, 
array indices, implied DO loop indices, or as a 
control variable in computed or assigned GOTO 
statements. 


8. Literal -- Any number of characters from the 
FORTRAN-80 character set can be specified as a 
string enclosed by quotation marks. This allows the 
programmer to specify titles and headings. Symbolic 
names designated as literal can be read from or 
written to storage using the READ or WRITE 
statements (formatted) using ‘A' format. This is 
dicussed in Section 8 under formatted read and 
write. 


9. Byte -- One byte signed integers in the range -128 
to +128 inclusive. 


FORTRAN-80 accepts type designations specified slightly 
differently than the 1966 standard. Numbers can be type 
specified as any of the following: 


INTEGER (or INTEGER*® 2) These mean the same 
thing. 


INTEGER*1 This is an integer with one byte 
precision for 3 digits only. This 
normally will not be used since it can 
constrain practical program usage. 


INTEGER*4 This is an integer having four bytes 
for a precision of 9+ significant 
digits, as described previously. 


REAL (or REAL*4) These mean the same thing. 
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DOUBLE PRECISION (or REAL*8) These mean the 
same thing. 


LOGICAL (or BYTE) These mean the same thing, 
and consist of one byte 
representing TRUE or FALSE 
onlyas described above. 


The *1,*2,*4, and *8 designators merely refer to 
the number of bytes that the number will occupy in 
storage. The programmer can specify these as 
program requirements dictate. The designations are 
compatable with other FORTRANS, $0 type 
designations will not normally require revision 
if running an existing programs, 


3.2 CONSTANTS 
FORTRAN constants are identified explicitly by 
Stating their actual value. The plus (+) character 
need not precede positive valued constants. 


Formats for writing constants are shown in Table 
3-1. 
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Table 3-1. CONSTANT FORMATS 


TYPE FORMATS AND RULES OF USE EXAMPLES 
INTEGER l. 1 to 5 decimal digits -763 
Or interpreted as a deci- l 
(INTEGER* 2) mal number. +0067 2 
2. <A preceding plus (+) or -32768 
minus (-) sign 18 op- +32767 
tional. 
3. No decimal point (.) or - 32 767 


comma (,) 18 allowed but 
Spaces are permitted in 
the source program. 


4. Value range: -32768 
through +32767 (.1.e., 
-2**15 through 2**15-1). 


REAL 1. <A decimal number with 345. 
or precision to 7 digits -. 345678 
REAL*4 and represented in one +345.678 
of the following forms: +.3E3 
-73E4 
a. +or -.f + or -1.f 


Db. + Or -1.E+ or -e 
+ or -~.f£E+ or -e 
+ or -1.fE+ or -e 


where i, £, and e are 
each strings represent- 
ing integer, fraction, 

and exponent respectively. 


2. Plus (+) and minus (-) 
characters are optional. 


3. In the form shown in 1 b 
above, if r represents any 
of the forms preceding 
E+ or -e (1.e., rE+ or -e), 
the value of the constant 
is interpreted as r times 
l10**e, where -38=E=38. 
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TYPE 


DOUB LE 
PRECISION 
Or 
REAL*8 


LOGICAL 
or 
BYTE 


FORMATS AND RULES OF USE EXAMPLES 


4. If the constant preceding 
E+ or -e contains more 
significant digits than 
the precision for real 
data allows, truncation 
occurs, and only the 
most significant digits 
in the range will be rep- 
resented. 


A decimal number with +345 .678 
precision to 16 digits. All +.3D3 
formats and rules are identi- <-73D4 


cal to those for REAL con- 
stants, except D is used in 
place of E. Note that a real 
constant is assumed single pre- 
cision unless it contains a 

"D"* exponent. 


-TRUE. generates a non-zero » TRUE. 
byte (hexadecimal FF) and -FALSE. 
.PALSE. generates a byte in 

which all bits are 0. 


If logical values are 

used as one-byte integers, the 
rules for use are the same as 
for type INTEGER, except that 
the range allowed is -128 to 
+127, inclusive. 
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TYPE FORMATS AND RULES OF USE EXAMPLES 
LITERAL In the literal form, any 'THIS IS A HEADER 
number of characters may be LINE' 


HEXADECIMAL 


INTEGER* 4 


enclosed by single quotation 
marks. The form is as follows: 


"X1X2X3...Xn' 


where each Xi 1s any charac- 
ter other than '. Two 
quotation marks in succession 
may be used to represent the 
quotation mark character 
within the string, l.e., 

if X2 1s to be the quotation 
mark character, the string 
appears as the following: 


"X1''X3...Xn' 


l. The letter 2 or X followed 2'12 
by a single quote, up to 4 A'‘ABIF' 
hexadecimal digits (0-9 2'FFFF' 
and A-F) and a single X'IF' 
quote is recognized as a 
hexadecimalvalue. 


2. A hexadecimal constant 15 
right justified in its 
Storage value. 


l. One to ten decimal digits 1234567890 
interpreted asadecimal 0 0 
number. 


2. A preceding plus or minus -2147483647 
Sign is optional. 


3. No deciml point or comma - 2 147 483 647 
is allowed, but spaces are 
permitted in the source 
program. 


4. Value range: 
-2147483648 through 2147483647 
(i.e., -2*%*31 through 2**31-1). 
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3.3 VARIABLES 


Variable data are identified in FORTRAN statements 
by symbolic names. The names are unique strings of 
from 1 to 6 alphanumeric characters of which the 
first is a letter. It is suggested that, whenever 
possible, mnemonic variable names should be chosen 
to aid the programmer in remembering the meaning of 
the variables in his program. For example, the 
Statement D=R*T is more meaningful than the 
Statement X=Y*Z2 in which X,Y,2 are2 used to 
represent distance, rate, and time, respectively. 


NOTE 


System variable names and runtime 
Subprogram names are distinguished from 
other variable names in that they begin 
with the dollar sign character ($). It 18 
therefore strongly recommended that in 
order to avoid conflicts, symbolic names in 
FORTRAN Source programs begin with some 
letter other than "S$", 


Examples: 
I5, TBAR, B23, ARRAY, XFM/9, MAX, A1LSC 


Variable data are classified into four types: 
INTEGER, REAL, DOUBLE PRECISION and LOGICAL. The 
specification of type 1S accomplished in one of the 
following ways: 


l. Implicit typing in which the first letter of 
the symbolic name _ specifies Integer or Real 
type. Unless explicitly typed (2., below), 
symbolic names beginning with I, J, K, L, M or 
N represent Integer variables, and symbolic 
names beginning with letters other than lI, J, 
K, L, M Or N represent Real variables. 


Integer Variables 
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Real Variables 
BETA 

H2 

ZAP 

AMAT 

XID 


2. Variables may be typed explicitly. That is, 
they may be given a particular type without 
reference to the first letters of their names. 
Variables may be explicitly typed as INTEGER, 
REAL, DOUBLE PRECISION or LOGICAL. The 
specific statements used in explicitly typing 
data are described in Section 6. 


Variable data receive their numeric value assignments during 
program execution by using statements containing '=' 
Signs, or, initially, in a DATA statement (Section 6). 


Hollerith or Literal data may be assigned to any type 
variable. Sub-paragraph 3.6 contains a discussion of 
Hollerith data storage. 


3.4 ARRAYS AND ARRAY ELEMENTS 


An array is an ordered set of data characterized by 
the property of dimension. An array may havel, 2 
or 3 dimensions and is identified and typed by a 
symbolic name in the same manner as a variable 
except that an array name must be so declared by an 
"array declarator". A Complete discussion of 
array declarators appears in Section 6 of this 
manual. An array declarator also indicates the 
dimensionality and size of the array. An array 
element is one member of the data set that makes up 
an array. Reference to an array element in a 
FORTRAN statement is made by appending a subscript 
to the array name. A subscript consists of a 
number or numbers written in parentheses following 
the array element. An array element with its 
subscript is called a subscripted variable. 
Subscripts may have ll, 2, or 3 numbers 
corresponding to array dimensions column, row, and 
rank, respectively. The term array element, in this 
manual is synonymous with the term subscripted 
variable used in some FORTRAN texts and reference 
manuals. 
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An initial value may be assigned to any array 
element by a DATA statement or its value may be 
derived and defined during program execution, 
through the“use of statements having '=' signs. 


3.5 SUBSCRIPTS 


A subscript is an integer quantity that follows an 
array name to uniquely identify an array element. 
The dimensions of the array, as specified in the 
DIMENSION statement, give the number of subscripted 
quantities the array has and the maximum number 
each quantity can be. In use, a subscript in a 
PORTRAN statement takes on the same 
representational meaning as a subscript in familiar 
algebraic notation. Rules that govern the use of 
subscripts are as follows: 


l1. A subscript contains 1, 2 or 3. subscript 
expressions (see 4 below) enclosed in 
parentheses. 


2. If there are two or three subscript expressions 
within the parentheses, they must be separated 
by commas. 


3. The number of subscript expressions must be the 
same as the specified dimensionality of the 
Array Declarator except in EQUIVALENCE 
statements (Section 6). 


4. A subscript expression is written in one of the 
following forms: 


K CV V-K 
Vi C*V+K C*V-K 
V+K 


where C and K are integer constants and V is an 
integer variable name (see Section 4 for a 
discussion of expression evaluation). 


5S. Subscripts themselves may not be subscripted. 
Examples: 
X(2*J-3,7) A(I,J,K) I (20) C(L=-2) Y(I) 
These rules follow the FORTRAN-66 standard exactly. 


If attempting to run FORTRAN-77 programs, subscript 
notations must be changed to the conventions listed 


above. 
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- 


3.6 DATA STORAGE ALLOCATION 


Allocation of storage for FORTRAN data is made in 
numbers of storage units. A storage unit is the 
memory space required to store one real data value 
(4 bytes). 


Table 3-2 defines the word formats of the three 
data types. 


Hexadecimal data may be associated (via a DATA 
statement) with any type data. Its storage 
allocation is the same as the associated datum. 


Hollerith or literal data may be associated with 
any data type by use of DATA initializaton 
Statements (Section 6). 


Up to eight Hollerith characters may be associated 
with Double Precision type storage, up to four with 
Real or Integer*4, up to two with Integer*2, and 
one with Logical or Byte type storage. 


To summarize, if basic types are specified such as 
INTEGER, REAL, LOGICAL, etc., then the storage 
values assumed are those in Table 3-2. If the types 
are specified with *1,*2,*%4, or *8, the storage 
allocations are determined by the number, which 
specifies the number of bytes required by the 
programmer. These storage assignments are indicated 
in Table 3-3. 


“s. 
+ the 


He 
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TABLE 3-2. STORAGE ALLOCATION BY DATA TYPES 


PE ALLOCATION 
INTEGER 2 bytes/ 1/2 storage unit 
S Binary Value 


Negative numbers are the two's complement of 
positive representations. The storage order 
is reversed. The least significant byte is 
followed by the most significant byte. 


LOGICAL 1 byte/ 1/4 storage unit 
zero (false) or non-zero (true) 


A non-zero valued byte indicates true (the 
logical constant .TRUE. is represented by 
the hexadecimal value FF). A zero. valued 
byte indicates false. 


When used as an arithmetic value, a Logical 
datum is treated as an Integer in the range 
-128 to +127. 


REAL 4 bytes/ 1 storage unit 
Characteristic S Mantissa (hi) 
Mantissa(mid) Mantissa (low) 


The first byte is the characteristic 
expressed in excess 200 (octal) notation; 
i.e., a value of 200 (octal) corresponds to a 
binary exponent of 0. Values less than 200 
(octal) correspond to negative exponents, and 
values greater than 200 correspond to 
positive exponents. By definition, if the 
characteristic is zero, the entire number is 
zero. 
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TYPE 


(REAL 


ALLOCATION 


continued ) 


DOUBLE 


PRECISION 


INTEGER *4 


TABLE 


Equivalent Representations Size 


BYTE 
INTEGER *1 
LOGICAL 
LOGICAL*1 
INTEGER 
INTEGER *2 
LOGICAL* 2 
INTEGER*4 
LOGICAL*4 
REAL 
REAL*4 
DOUBLE PRECISION 
REAL*8 


NOTE: 


The next three bytes constitute the mantissa. 
The mantissa is always normalized such that 
the high order bit is one, eliminating the 
need to actually save that bit. The high bit 
is used instead to indicate the sign of the 
number. A one indicates a negative number, 
and zeco indicates a positive number. The 
manthssa iS assumed to be a binary fraction 
whose binary point is to the left of the 


mantissa. The format of the mantissa is 
"signed magnitude.* The bytes are stored in 
reverse order: mantissa low order, fol lower 


by mid order, high order, and characteristic. 
8 bytes/ 2 storage units 


The internal form of Double Precision data 15 
identical with that of Real data except 
Double Precision uses 4 extra bytes For tne 
matissa. 


4 bytes/ 1 storage unit 
Negative numbers are represented in two's 
complement form. The bytes are stored in 


reverse order, least significant to most 
Significant. 


3-3. EQUIVALENT DATA TYPES AND SIZES 


-_ 
>) 


Bytes 


OOere &@B BB aBNNN PPh | 


Type LITERAL storage is determined on the 
basis of one byte per Hollerith character. 
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SECTION 4 


FORTRAN EXPRESSIONS 


A FORTRAN expression 1S composed of a single operand or a 
String of operands connected by operators. Three expression 
types- Arithmetic, Logical, and Relational- are provided. 
The operands, operators and rules of use for these types are 
described in the following paragraphs. 


4.1 ARITHMETIC EXPRESSIONS 


Arithmetic expressions are used in FORTRAN to 
Specify computations. An arithmetic expression 
consists of a single constant, a variable or 
combination of these used with arithmetic 
operators. The value of the arithmetic expression 
1s always a number whose type is integer or real. 


An arithmetic expression has the form: 

a=(e) 
where a is a variable, constant, array element 
reference, or FUNCTION reference. e 185 an 


expression, explained below. 


The arithmetic operators are as follows: 


Operator Meaning 
at Exponentiation 
* Multiplication 
/ Division 
+ Addition 


Subtraction 


Examples of valid arithmetic expressions are as 
follows: 
Pp 
907 a single constant 
AREA a single variable 
AREA/ 2 combinations of the above 
with arithmetic operators 
A+B*C/D " 
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The following rules define all permissible 
arithmetic expression forms: 


l. A constant, variable name, array element 


reference or FUNCTION reference (Section 39) 
standing alone is an expression. 


Examples: 
S(I) JOBNO 217 17.26 SQRT (A+B) 
2. If E is an expression whose first character is 


not an operator, then +E and -E are called 
Signed expressions. 


Examples: 
-S +JOBNO -217 #17.26 -SQRT (A+B) 


3. If E iS an expression, then (E) means’ the 
quantity resulting when E is evaluated. 


Examples: 
(-A) -(JOBNO) -(X+1) (A-SQRT (A+B) 


~~ 


4. If Eis an unsigned expression and F is any 
expression, then: FtE, F-E, FtE, F/E and F**tE 
are all expressions. 


Examples: 


-(B(I,J) +SQRT(A+B(K,L))) 
1.7E-2**(X+5.0) 
~(B(I+3,3*J+5) +A) 


5. An evaluated expression may be Integer, 
Extended Integer, Real, Double Precision, or 
Logical. The type is determined by the data 
types of the elements of the expression. if 
the elements of the expression are not ail of 
the same type, the type of the expression 1s 
determined by the element having the highest 
type. The type hierarchy (highest to lowest) 
is as follows: DOUBLE PRECISION, REAL, 
INTEGER*4, INTEGER, LOGICAL. 
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6. Expressions may contain nested parenthesized 
elements as in the following: 


A*(Z-((Y+X)/T) ) **J 


where Y+X is the innermost element, (Y+X)/T is 
the next innermost, 2-((Y+X)/T) the next. In 
such expressions, care should be taken to. see 
that the number of left parentheses and the 
number of right parentheses are equal. 


Notes: 


All computations must be explicitly specified. 
There are no implied operations. The algebraic 
formula, Az3.l4rr would be written in FORTRAN with 
the multiplication of 3.14 and r explicitly stated 
as follows: 


A=3.14*R**2 


Only one operator may be used between two variable 
names. The following are invalid: 


X*-Y and X*/B 


In order to multiply X by -Y either the order can 
be reversed to be -Y*X or parentheses can be used: 


X*(-Y) 


An expression can begin with a + sign or - sign but 
no other symbol. The unary operation -Y is allowed 
and ig equivalent to 0.-Y. Two asterisks (**) 
representing exponentiation are considered as a 
single symbol. 


Note that X**2 is preferred to X**2. since X**2 is 
evaluated as X*X whereas X**2. is evaluated by 
logarithms resulting ina less accurate answer. It 
is also suggested that additional parentheses be 
used whenever they add clarity and might avert an 
error. There is no virtue in writing complicated 
expressions with the minimum of parentheses if 
clarity is clouded or errors emerge in the result. 
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EXPRESSION EVALUATION 


Arithmetic expressions are evaluated according to 

the following rules: 

l. Parenthesized expression elements are evaluated 
first. If parenthesized elements are nested, 
the innermost elements are evaluated, then the 
next innermost until the entire expression has 
been evaluated. 


2. Within parentheses and/or wherever parentheses 
do not govern the order or evaluation, the 
hierarchy of operations in order of precedence 
is as follows: 


a. FUNCTION evaluation 
b. Exponentiation 


ec. Multiplication and Division 
@. Addition and Subtraction 


Example: 
The expression 
A*(Z-((Y+4R)/T) ) **J+VAL 


is evaluated in the following sequence: 


el = Y+R 
e2 = (el)/T 
e3 = 2-e2 
e4 2 e3ttJ 
e5 = Ate4 
e6 = e5+VAL 
3. The expression X**y**Z is not allowed. It 


should be written as follows: 


(X**Y) **Z or X**(Y**Z) 
4. Use of an array element reference requires the 
evaluation of its subscript. Subscript 


expressions are evaluated under the same rules 
as other expressions. 
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4.3 LOGICAL EXPRESSIONS 


A Logical Expression may be any of the following: 


l. A Single Logical Constant (1.e., .TRUE. Or 
-FALSE.), a Logical variable, Logical Array 
Element or Logical FUNCTION reference (see 
FUNCTION, Section 9). 


2. Two arithmetic expressions separated by a 
relational operator (l.e., a relational 
expression). 


3. Logical operators acting upon logical 
constants, logical variables, logical array 
elements, logical FUNCTIONS, relational 


expressions or other logical expressions. 


The value of a logical expression 1S always either 
TRUE. or .FALSE. 
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4.3.1 RELATIONAL EXPRESSIONS 


A relational expression is a type of logical 
expression which contains a relational operator. 


The general form of a relational expression 18 as 
follows: 


el r e2 
where el and e2 are arithmetic expressions andr is 


a relational Operator. The Six relational 
operators are as follows: 


.LT. Less Than 
. LE. Less than or equal to 
. EQ. Equal to 
.NE. Not equal to 
.GT. Greater than 
.GE, Greater than or equal to 
The value of the relational expression 18S  .TRUE. 


if the condition defined by the operator 1S met. 
Otherwise, the value 1s .FALSE. 


Examples: The following relational expressions are 


valid: 
A.EQ.B 
(A**J) .GT.(Z2AP*( RHO*TAU-ALPH) ) 
I. LT.J 
(E**2,7) .EQ.(5.*R+4) 
.5.GT..6*R 


E.LT.27.3E+05 


The following relational expressions are invalid: 


E**2.EQ 91.E09 missing period 
.GT.@& missing expression 
4.3.2 LOGICAL OPERATORS 
Table 4-l lists the logical operations. U and Vv 


denote logical expressions. 
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Table 4-1. Logical Operations 


~NOT .U The value of this expression is the 
logical complement of U (i.e., 1 
bits become 0 and 0 bits become l). 


U.AND.V The value of this expression is the 
logical product of U and V (i.e., 
there is al bit in the result only 
where the corresponding bits in both 
U and V are l. 


U.OR.V The value of this expression is the 
logical sum of U and V (i.e., there 
is a 1 in the result if the 
corresponding bit in U or Vis l or 
if the corresponding bits in both U 
and V are l. 


U.XOR.V The value of this expression is the 
exclusive OR of U and V (1i.e., there 
is a one in the result if the 
corresponding bits in U and V are 1 
and 0 or O and 1 respectively. 


Examples: 


If U = 01101100 and V = 11001001 , then 


-NOT.U) = 10010011 
U.AND.V = 01001000 
U.OR.V = 11101101 
U.XOR.V = 10100101 


The following are additional considerations for 
construction of Logical expressions: 


1. Any Logical expression may be enclosed in 
parentheses. However, a Logical expression to 
which the .NOT. operator is applied must be 
enclosed in parentheses if it contains two or 
more elements. 
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2. In the hierarchy of operations, parentheses may 
be used to specify the ordering of the 
expression evaluation. Within parentheses, and 
where parentheses do not dictate evaluation 
order, the order is understood to be as 


follows: 

a. FUNCTION Reference 

b. Exponentiation (**) 

ec. Multiplication and Division (* and /) 
d. Addition and Subtraction (+ and -) 

e. -LT., .~LE., .EQ., .NE., .GT., .GE. 

f.  .NOT. 

g. .AND. 

h. .OR., .XOR. 

Examples: 


The expression 

X .AND. Y .OR. B(3,2) .GT. Z 
is evaluated as 

el = B(3,2).GT.2Z 

e2 = X .AND. Y 

e3 = e2 .OR. el 
The expression 

X .AND. (Y .OR. B(3,2) .GT. 2) 
is evaluated as 

el = B(3,2) .GT. 2 


e2 = Y .OR. el 
e3 = X .AND. e2 


3. It is invalid to have two contiguous) logical 
operators except when the second operator is 
.NOT. That 18, 

~AND..NOT. 
and 


-OR..NOT. 


are permitted. 
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Example: 
A.AND..NOT.B ls permitted 
A.AND..OR.B is not permitted 
4.4 HOLLERITH, LITERAL, AND HEXADECIMAL CONSTANTS IN 
EXPRESSIONS 


Hollerith, Literal, and Hexadecimal constants are 
allowed in expressions in place of Integer 
constants. These special constants always evaluate 
to an Integer value and are therefore limited to a 
length of two bytes. The only exceptions to this 
are; 


l1. Long Hollerith or Literal constants may be used 
as subprogram parameters. 


2. Hollerith, Literal, or Hexadecimal constants 
may be up to four bytes long in DATA statements 
when associated with Real variables, or up to 
eight bytes long when associated with Double 
Precision variables. However, it is worthwhile 
noting that although a literal constant may be 
associated with Real or Double Precision 
variables, the constant will always be 
evaluated as an integer. 
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SECTION 5 


REPLACEMENT STATEMENTS 


Replacement statements define computations and are _ used 
Similarly to equations in normal mathematical notation. 
They are of the following form: 


Vv=e 


where v 1S any variable or array element and e 185 an 
expression. 


FORTRAN Semantics defines the equality sign (=) aS meaning 
to be replaced by rather than the normal is equivalent to. 
Thus, the object program instructions generated by a 
replacement statement will, when executed, evaluate the 
expression on the right of the equality sign and place that 
result in the storage space allocated to the variable or 
array element on the left of the equality sign. 


The following conditions apply to replacement statements: 


1. Both v and the equality sign must appear on the 
Same line. This holds even when the statement 15s 
part of a logical IF statement (section 7). 


Example: 


C IN A REPLACEMENT STATEMENT THE '=2' 
C MUST BE IN THE INITIAL LINE. 
A(5,3) = 
1 B(7,2) + SIN(C) 


The line containing v= must be the initial line of 
the statement unless the statement 1S part of a 
logical IF statement. In that case the v= must 
occur no later than the end of the first line after 
the end of the IF. 


2. If the data types of the variable, v, and the 
expression, e, are different, then the value 
determined by the expression will be converted, 16 
possible, to conform to the typing of the variabie. 
Table 5-1 shows which type expressions may be 
equated to which type of variable. Y indicates a 
valid replacement and N indicates an invalid 
replacement. Footnotes to Y indicate conversion 
considerations. 
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Table 5-1. Replacement By Type 


Expression Types (e) 


Variable 

Types Integer Real Logical Double Ext Int 
Integer Y Ya Yb Ya Yg 
Real Ye Y Ye Ye Yc 
Logical Yd Ya Y Ya Yd 
Double Ye Y Yc Y Yc 
Ext Int Yf Ye Yb,f Ye Y 


a. The Real expression value is converted to Integer, 
truncated if necessary to conform to the range of 
Integer data. 


b. The sign is extended through the second byte. 


c. The variable is assigned the Real approximation of 
the Integer value of the expression. 


dad. The variable is assigned the truncated value of the 
Integer expression (the low-order byte is used, 
regardless of sign). 


e. The variable is assigned the rounded value of the 
Real expression. 


f. The sign is extended through the third and fourth 
bytes. 


g. The variable is assigned the truncated value of the 
Extended Integer expression. 
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SECTION 6 


SPECIFICATION STATEMENTS 


Specification statements are non-executable, non-generative 
Statements which define data types of variables and arrays, 
specify array dimensionality and size, allocate data storage 
Or otherwise supply determinative information to the FORTRAN 
processor. DATA intialization Statements are 
non-executable, but generate object program data and 
establish initial values for variable data. 


There are two types of specification statements implemented 
in other FORTRANS that are not implemented in FORTRAN-80. 
These are the CHARACTER and INTRINSIC statements (as in 
FORTRAN-77). The CHARACTER statement is not required in 
FORTRAN-80 since LITERAL type specification provides the 
same basic function. The INTRINSIC statement (used 10 
FORTRAN-77) performs the same basic function as the EXTERNAL 
statement in FORTRAN-80, namely allowing call up of system- 
supplied FUNCTION subprograms. If attempting to run FORTRAN 
programs having CHARACTER or INTRINSIC statements, the user 
must modify the program over to LITERAL and EXTERNAL 
statement conventions. 


6.1 SPECIFICATION STATEMENTS 


There are seven kinds of specification statements. 
They are as follows: 


IMPLICIT statements 

Type, EXTERNAL, and DIMENSION statements 
COMMON statements 

EQUIVALENCE statements 

DATA initialization statements 


All specification statements are grouped at the 
beginning of a program unit and must be ordered as 
they appear above. Specification statements may be 
preceded only by a FUNCTION, SUBROUTINE, PROGRAM or 
BLOCK DATA statement. All specification statements 
must precede statement functions and the first 
executable statement. 
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6.2 ARRAY DECLARATORS 


Three kinds of specification statements may specify 
array declarators. These statements are the 
following: 


Type statements 
DIMENSION statements 
COMMON statements 


Of these, DIMENSION statements have the declaration 
of arrays as their sole function. The other two 
serve dual purposes. These statements are defined 
in subparagraphs 6.3, 6.5 and 6.6. 


Array declarators are used to specify the name, 
dimensionality and sizes of arrays. An array may 
be declared only once in a program unit. 


An array declarator has one of the following forms: 


ul (Kk) (one dimension array) 
ul (kl,k2) (two dimension array) 
ul (k1,k2,k3) (three dimension array) 


where ul 1s the name of the array, called the 
declarator name, and the k's are integer constants. 


Array storage allocation is established upon 
appearance of the array declarator. Such storage 
is allocated linearly by the FORTRAN) processor 
where the order of ascendancy is determined by the 
first subscript varying most rapidly and the last 
Subscript varying least rapidly. 


For example, if the array declarator AMAT(3,2,2) 
appears, storage is allocated for the 12 elements 
in the following order: 


AMAT(1,1,1), AMAT(2,1,1), AMAT(3,1,1), AMAT(1,2,1), 
AMAT(2,2,1), AMAT(3,2,1), AMAT(1,1,2), AMAT(2,1,2), 
AMAT(3,1,2), AMAT(1,2,2), AMAT(2,2,2), AMAT(3,2, 2) 
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6.3 TYPE STATEMENTS 


Variable, array and FUNCTION names are 
automatically typed Integer Or Real by the 
'predefined' convention unless they are changed by 
Type statements. For example, the type is Integer 
if the first letter of anitemislI, J, K, L, Mor 
N. Otherwise, the type is Real. 


Type statements have the following general form: 
t vl,v2,...vn 


where t represents one of the terms’ INTEGER, 
INTEGER*1, INTEGER*2, INTEGER*4, REAL, REAL*4, 
REAL*8, DOUBLE PRECISION, LOGICAL, LOGICAL*1, 
LOGICAL*2, LOGICAL*4, or BYTE. Each v 18 an array 
declarator or a variable, array or FUNCTION name. 
The INTEGER*1, INTEGER*2, INTEGER*4, REAL*4, 
REAL*8, LOGICAL*1, LOGICAL*2, LOGICAL*4 types are 
allowed for readability and compatibility with 
other FORTRANS. 


Example: 
REAL AMAT(3,3,5) ,BX,I ETA, KLPH 


l. AMAT and BX are redundantly typed. 

2. IETA and KLPH are unconditionally 
» declared Real. 

3. AMAT(3,3,5) is a constant array 

declarator specifying an array of 45 

elements. 
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INTEGER Ml, HT, JMP(15), FL 


Ml is redundantly typed here. Typing of HT 
and FL by the pre-defined convention is 
overridden by their appearance in the 
INTEGER statement. JMP(15) is a constant 
array declarator. It redundantly types the 
array elements as Integer and communicates 
to the processor the storage requirements 
and dimensionality of the array. 


Examnle: 


LOGICAL Ll, TEMP 


All variables, arrays or FUNCTIONS required 
to be typed Logical must appear in a 
LOGICAL statement, since no starting letter 
indicates these types by the default 
convention. 


Example: 


DOUBLE PRECISION IX(9,9),BC,AL 


IX(9,9) is a constant array declarator 
specifying an array of 81 elements. The 
implicit integer convention of IX is 
overriden (the array will contain double 
precision real subscripted variables). BC 
and AL are redundantly typed as real. 


Example: 


LOGICAL*4 A,JK,P 


All three variables are typed as LOGICAL 
using four bytes of storage each. The 
implicit type of JK (Integer) is overriden. 
The implicit types of A and P (Real) are 
also overriden. 
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Example 


BYTE NAME( 20) , ANSWER 


All variables typed as BYTE must appear 

in a BYTE statement, since no starting 
letter indicates the type by the default 
conventions (as in real and integer types). 
NAME(20) is a constant array declarator 
specifying 20 consecutive bytes. 


6.4 EXTERNAL STATEMENTS 


EXTERNAL statements have the following form: 
ry 
EXTERNAL ul,u2,...,un 


where each ui i8 a SUBROUTINE, BLOCK DATA or 
FUNCTION name. When the name of a subprogram is 
used as an argument ina subprogram reference, it 
must have appeared in a preceding EXTERNAL 
Statement. This is because the compiler must be 
told that the subroutine exists (externally) to the 
program before it is called by an executable 
instruction. 


When a BLOCK DATA subprogram is to be included ina 
program load, its name must have appeared in an 
EXTERNAL statement within the main program unit. 


For example, if SUM and AFUNC are subprogram names 
to be used as arguments in the subroutine SUBR, the 
following statements would appear in the calling 
program unit: 


EXTERNAL SUM, AFUNC 


CALL SUBR(SUM,AFUNC,X,Y) 
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6.5 DIMENSION STATEMENTS 


If an array is to be used ina program, a DIMENSION 
statement, which declares the number of elements 
in the array, may be used to request memory for the 
array. It is necessary that subscripted variables 
be dimensioned since without dimension information 
the computer will not be able to distinguish 
between a subscripted variable and a subprogram. 


A DIMENSION statement has the following form: 


DIMENSION u2,u2,u3,...,uUnN 


where each uli 18S an array declarator. 


Example: 


DIMENSION RAT(5,5) ,BAR( 20) 


This statement declares two arrays - the 25 element 
array RAT and the 20 element array BAR. The 
computer will therefore reserve the needed amount 
of memory for the two arrays. 


Also note that if the variable name used in the 
array is defined as a specific type by means of an 
explicit type statement, such as REAL RAT, the 
variable may be dimensioned in the type statement 
and a DIMENSION statement will not be required. 


Example: 


REAL JOY(10), IDEA(14) 

INTEGER TIME(30) 
These type statements also set up arrays- JOY, a 
ten element one dimension array, IDEA, a fourteen 


element one dimension array, and TIME, a thirty 
element one dimension array. 
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It is important to dimension arrays to the maximum 
size needed since attempting to assign more values 
to an array than the DIMENSION provides will cause 
an error. However, care should be exercised that 
arrays are not considerably larger than needed 
since extra memory will be required to run the 
program and efficiency will be decreased, 
especially if using DOUBLE PRECISION or REAL*8 
subscripted variables. 


COMMON STATEMENTS 


When programs contain subroutine subprograms, 
values can be passed fom the main line program to 
subroutines in two ways. The first method is by 
passing values as arguments within other 
statements, such as GOTO or CALL. A second method 
is by use of a common storage area. This special 
storage block in memory is called COMMON and the 
variables assigned to COMMON are accessable to all 
program units containing the COMMON statement, 
thereby eliminating large argument lists. 


COMMON statements are non-executable, storage 
allocating statements which assign variables and 
arrays to a storage area called COMMON storage and 
provide the facility for various program units to 
share the use of the same storage area. 


COMMON statements are expressed in the following 
form: 


COMMON /yl/al/y2/a2/.../yn/an 


where each yi is a COMMON block storage name and 
each ai is a sequence of variable names, array 
names or constant array declarators, separated by 
commas. The elements in ai make up the COMMON 
block storage area specified by the name ji. I 
any y is omitted leaving two consecutive slash 
characters (//), the block of storage so indicated 
is called blank COMMON. If the first block name 
(yl) is omitted, the two slashes may be omitted. 
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Example 3 


COMMON /AREA/A,B,C/BDATA/X,Y,Z, 
PL, ZAP (30) 


In this example, two blocks of COMMON storage are 
allocated - AREA with space for three variables and 
BDATA, with space for four variables and the 30 
element array, ZAP. 


Example: 


COMMON //Al1 ,B1/CDATA/ZOT( 3,3) 


In this example, Al, Bl, T2 and 23 are assigned to 
blank COMMON in that order. The pair of slashes 
preceding Al could have been omitted. 


CDATA names COMMON block storage for the nine 
element array, ZOT and thus ZOT (3,3) is an array 
declarator. ZOT must not have been previously 
declared.(See "Array Declarators," Paragraph 6.2.) 


e 


Additional Considerations: 


1. The name of a COMMON block may appear more than 
once in the same COMMON statement, or in more 
than one COMMON statement. 


2. A COMMON block name is made up of from l to 6 
alphanumeric characters, the first of which 
must be a letter. 


3. A COMMON block name must be different from any 
subprogram names used throughout the program. 


4. The size of a COMMON area may be increased by 
the use of EQUIVALENCE statements. See 
"EQUIVALENCE Statements,” Paragraph 6.7. 
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5. The lengths of COMMON blocks of the same name 
need not be identical in all program units 
where the name appears. However, if the 
lengths differ, the program unit specifying the 
greatest length must be loaded first (see the 
discussion of LINK-80 in the User's Guide). 
The length of a COMMON area is the number of 
storage units required to contain the variables 
and arrays declared in the COMMON statement (or 
statements) unless expanded by the use of 
EQUIVALENCE statements. 


It should be noted that since COMMON is more 
efficient in passing values between program units 
than argument lists, both in time and space, COMMON 
should be used for all the variables inan argument 
list that always correspond to the same variable in 
the calling program at every call of the 
subprogram. When a variable in the subprogram 
corresponds to a different variable in the calling 
program at different calls to the subprogram, it 
must be an argument. COMMON can be used for all 
variables inthe first category and for arguments 
in the second. Arguments passed in a COMMON block 
must agreein order, type and lengthinall program 
units that use them. The names of the members in 
COMMON in different program units need not be the 
same because the order listed in the COMMON 
statement determines which variables are the same. 


Por large programs that are maintained and revised 
for long periods, the use of arguments instead of 
COMMON has a decided advantage in that it is 
Clearer which variables a subprogram effects. A 
hastily made change to a single COMMON variable 
could send repercussions through many subprograms 
that contain the COMMON statement, and itis less 
clear which variables are used by which 
subprograms. 


6.7 EQUIVALENCE STATEMENTS 


Use of EQUIVALENCE statements permits the sharing 
of the same memory location by two or more 
variables, constants, Or arrays in the same program 
unit. 
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The general form of the statement is as follows: 
EQUIVALENCE (ul),(u2),...,(un) 


where each ui represents a sequence of two or more 
variables or array elements, separated by commas. 
Each element in the sequence is assigned the same 
storage unit (or portion of a storage unit) by the 
processor. The order in which the elements appear 
is not significant. 


EQUIVALENCE (A,B,C) 


The variables A, B and C will share the _ same 
storage unit during object program execution. 


If an array element is used in an EQUIVALENCE 
statement, the number: of subscripts must be the 
same as the number of dimensions established by the 
array declarator, or it must be one, where the one 
subscript specifies the array element's number 
relative to the first element of the array. 


Example: 


If the dimensionaliity of an array, 2, has been 
declared as 2(3,3) then in an EQUIVALENCE statement 
%( 6), and Z(3,2) have the same meaning. 


Additonal Considerations: 


l. The subscripts of array elements must be 
integer constants. 


2. An element of a multi-dimensional array may be 
referred to by a single subscript, if desired. 
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Variables may be assigned to a COMMON block 
through EQUIVALENCE statements. 


Example: 


COMMON /X/A,B,C 
EQUIVALENCE (A,D) 


In this case, the variables A and D share the 
first storage unit in COMMON block xX. 


EQUIVALENCE statements can increase the size of 
a block indicated by a COMMON statement by 
adding more elements to the end of the block. 


Example: 


DIMENSION R(2, 2) 
COMMON /Z/W,X,Y 
EQUIVALENCE (Y,R(3)) 


The resulting COMMON block will have the 
following configuration: 


Variable Storage Unit 


W = R(1,1) 0 
X = R(2,1) 1 
Y = R(1,2) 2 
R(2,2) 3 _ 


The COMMON block established by the COMMON 
statement contains 3 storage units. It is 
expanded to 4 storage units by the EQUIVALENCE 
statement. 


COMMON block size may be increased only from 
the last element established by the COMMON 
statement forward; not from its first element 
backward. 
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Note that EQUIVALENCE (X,R(3)) would be invalid 
in the example. The COMMON Statement 
established W as the first element in the 
COMMON block and an attempt to make X and R(3) 
equivalent would be an attempt to make R(1l) the 
first element. 


5. It 18 invalid to EQUIVALENCE two elements of 
the same array or two elements belonging to the 
same or different COMMON blocks. 


Example: 


DIMENSION XTABLE (20), D(5) 
COMMON A,B(4)/2AP/C,X 


EQUIVALENCE (XTABLE (6),A(7), 
X B(3),XTABLE(15)), 
Y (B(3),D0(5)) 


This EQUIVALENCE statement has the following 
errors: 


l. It attempts to EQUIVALENCE two elements of the 
same array, XTABLE(6) and XTABLE(15). 


2. It attempts to EQUIVALENCE two elements of the 
same COMMON block, A(7) and B(3). 


3. Since A is not an array, A(7) 18 an illegal 
reference. 


4. Making B(3) equivalent to D(5) extends COMMON 
backwards from its defined starting point. 


118 


FORTRAN-80 Reference Manual 


6. 


In summary, one use of the EQUIVALENCE statement is 
to provide a means of allocating the same memory 
locations to different variables. This means that 
the total of memory locations required by a program 
can be reduced by having two or more variables 
share the same location. Of course, the values of 
these shared variables must not be needed by the 
program at the same time. The reduction of the 
amount of total storage required for a program by 
using an EQUIVALENCE statement is particularly 
desirable when several large arrays are usedina 
program, but the values of one array must not be 
needed when the values of the equivalenced array 
are assigned. 


A second use of the EQUIVALENCE statement is to 
save the task of changing a variable name that 
inadvertently was changed within a program. Also, 
if two programmers supply coding for the same 
program unit but use different variable or array 
names for the same entities, an EQUIVALENCE 
statement can equate the appropriate entity names. 


DATA INITIALIZATION STATEMENT 


The DATA initialization statement is a 
non-executable statement which provides a means of 
compiling data values into the object program and 
assigning these data to variables and array 
elements referenced by other statements. 


The statement is of the following form: 
DATA list/ul,u2,...,un/,list.../uk,uk+l,...uk+n/ 


where “list® represents a list of variable, array 
Or array element names, and the ui are constants 
corresponding in number to the elements in the 
list. There must be a one-to-one correspondence 
between the list of variables and the list of 
initial values in the statement. An exception to 
the one-for-one correspondence of list items to 
constants is that an array name (unsubscripted) may 
appear in the list, and as many constants as 
necessary to fill the array may appear in the 
corresponding position between slashes. Instead of 
ui, it is permissible to write k*ui in order to 
declare the same constant, ui, k times in 
succession, k must be a positive integer. Dummy 
arguments may not appear in the list. 
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Example: _ 


DIMENSION C(7) 
DATA A, B, C(1),C(3)/14.73, 
X -8 .1,2*7 .5/ 


This implies that 
Az14.73, Be-8.1, C(1)#7.5, C(3)27.5 


The type of each constant ui must match the type of 
the corresponding item in the list, except that a 
Hollerith or Literal constant may be paired with an 
item of any type. 


When a Hollerith or Literal constant is used, the 
number of characters in its string should be no 
greater than four times the number of storage units 
required by the corresponding item, i.e., 1 
character for a Logical variable, up to 2 
characters for an Integer variable and 4 or fewer 
characters for a Real variable. 


If fewer Hollerith or Literal characters are 
specified, trailing blanks are added to fill the 
remainder of storage. 


Hexadecimal data are stored ina similar fashion. 
If fewer Hexadecimal characters are used, 
sufficient leading zeros are added to fill the 
remainder of the storage unit. 


The examples below illustrate many of the features 
of the DATA statement. 


uw DIMENSION HARY (2) 
| DATA HARY,B/ 4HTHIS, 4H OK. 
1 ,7.86/ 


REAL LIT(2) 

LOGICAL LT, LF 

DIMENSION #H4(2,2) ,PI3(3) 

DATA Al,B1l,K1,LT,LF,H4(1,1) ,H4(2,1), 
1 H4(1,2) ,H4(2,2),PI3/5.9,2.5E-4, 
2 64,.FPALSE., .TRUE.,1.75E-3, 

3 0.8SB-1,2%75.0,1.,2.,3.14159/, 
4 LIT(1)/'NOGO'/ 


120 


FORTRAN-80 Reference Manual Page 6-15 


6.9 IMPLICIT STATEMENT 


FORTRAN-80 provides the IMPLICIT type statement as 
an extension to the basic 1966 standard FORTRAN. 
Most current forms of FORTRAN, including FORTRAN- 
77, have also included this statement. If running 
an existing non-FORTRAN-80 program, the programmer 
should check to determine whether IMPLICIT type 
Statements are included. If not, the default I-N 
rule can be assumed (integer variable range I 
through N). The IMPLICIT statement allows the 
programmer to override default variable and array 
ranges or override explicit type specification as 
required. The syntax is: 


IMPLICIT type(range),type(range),... 
where type is one of the following: 


INTEGER, REAL, LOGICAL, DOUBLE PRECISION, 
BYTE, INTEGER*1, INTEGER*2, REAL*%4, REAL*8 


and range is a list of alphabetic characters 
separated by commas or hyphens. 


Examples: 
IMPLICIT INTEGER(A,W-Z) , REAL(B-V) 


All variables (not otherwise declared) starting 
with the letters A, W, X, Y, 2 will be type 
INTEGER. All variables starting with the letters B 
through V will be type REAL. 


IMPLICIT INTEGER(I-N) ,REAL(A-H,0-Z) 
This is the default definition. 


An IMPLICIT statement must appear in a= program 
grouped with the Type and DIMENSION statements. 
The IMPLICIT statement must appear before any other 
specification statements. If the IMPLICIT 
Statement appears after any Type or DIMENSION 
statements, the types of the variables already 
declared will not be affected. Note that an 
IMPLICIT statement applies only to the program unit 
in which it appears, and only one IMPLICIT 
statement may appear ina single program unit. No 
duplicate letters are allowed between types, and 
the IMPLICIT statement can not change the type 
names used in system-supplied subprograms. 
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SECTION 7 


FORTRAN CONTROL STATEMENTS 


FORTRAN control statements are executable statements which 
guide the logical flow and modify the sequential execution 
of a FORTRAN program. They perform three basic functions- 
branching, looping, and terminating, and therefore greatly 
expand utilization of the computer's capability. The 
statements in these categories are as follows: 


Branching: 


1. GO TO statements: 
1. Unconditional GO TO 
2. Computed GO TO 
3. Assigned GO TO 


2. ASSIGN 
3. IF statements: 


l. Arithmetic IP 
2. Logical IP 


4. CALL 

5. RETURN 
Looping: 

1. DO 


2. CONTINUE 
‘4 


Terminating: 
1. STOP 
2. PAUSE 
3. END 


When statement labels of other statements are a part of a 
control statement, such statement labels must be associated 
with executable statements within the same program unit in 
which the control statement appears. 
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Branching allows the programmer to specify two or more 
specific paths of computation automatically during the 
execution of a program. The branch can either be forward, to 
a higher numbered program statement, or backward, to a 
lesser-numbered program statement. A branch can be either 
unconditional or it can be based on a condition that is 
tested. Looping is a special form of branching. 


Looping is the process of repeating a sequence of 
instructions on the basis of the assigned or calculated 
value of at least one variable within the loop. Since 
looping is a repetitive process, some means must be provided 
to stop the repitition, namely a terminating statement. The 
DO loop, discussed in paragraph 7.4, is one form of looping. 
In a DO loop, the number of repitions is controlled by an 
integer index (counter). This index is initialized to a 
value and incremented by integral increments at each pass 
through the loop. The loop terminates when the loop index 
exceeds the terminal value specified in the DO statement. 
This type of loop is a counting loop and many kinds of 
iterative processes fit this form. However, certain 
iterative processes are more naturally terminated by 
achieving a specific condition since no specific number of 
times of repitition can be associated with the process. In 
such cases, it is suggested that rather than strain to fit 
the constraints of specifying a DO loop, you should instead 
write your own loop. The branch statements provide the means 
to do this, and the pattern of statements is similar to 
those performed automatically by the DO statement, namely: 


l. Initialize a control variable. 
2. Execute.a block of statements. 


3. Increment the control variable by any number, integer or 
real. ia 
é 
4. Test the control variable and either repeat steps 2-4 or 
terminate the loop. 


By writing your own looping statements, you remove the 

restrictions of the DO statement. The incremental amount 

need not be an integer. Also, the order of performing the 

steps may vary from the order shown above. For example, step 

2 and 3 could be reversed in order, and step 4 can be done 
before or after steps 2 and 3. 
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For existing FORTRAN programmers or those wishing to run 
nOn-FORTRAN-80 programs, it should be noted that FORTRAN-80 
implements branching and terminating somewhat differently 
than the ANSI 1966 standard, some other compilers per this 
Standard, and other FORTRANS Such as FORTRAN-77. The main 
differences are summarized as follows: 


l. FORTRAN-80 doeg not include the decision block 
IF-THEN-ELSE-ELSE IF-END IF statements. In other 
FORTRANS, these are uSually implemented in the 
following form: 


IF(el) THEN 
s 
} (IF-plock for (el) true) 


s 
ELSE IF(e2) THEN 

Ss 

s (IF-block for (e2) true) 


8 (IF-block for (e2) false) 

s 

END IF (assumes control if (€2) is 
false) 


where (e) are expressions, and 8s are statements. 


In FORTRAN-80, the same functional characteristics are 
performed using the logical IF, arithmetic IF, assigned 
GO TO, CALL and RETURN statements. This is done using 
logical, arithmetic, and relational expressions, and 
branching labels. 


2. FORTRAN-80 does not include the CALL EXIT statement. 
Generally, the CALL EXIT statement is used in other 
FORTRANS to provide an alternative to the STOP 
statement for program termination. It provides the 
means to continue processing without operator action in 
a batch processing environment only. Since your FORTRAN 
processing on OSBORNE 1 will only be in interactive 
mode, this statement is not needed. 


When attempting to run a non-FORTRAN-80 program, ensure that 
your source code does not include any of these invalid 
statements. Decision blocks may require rewriting to comply 
with FORTRAN-80 conventions. 
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7.1.1 


GO TO STATEMENTS 


UNCONDITIONAL GO TO 


Unconditional GO TO statements are used whenever 
control is to be transferred unconditionally to 
some other statement within the program unit. 


The statement is of the following form: 
GO TO k 


where k is the statement label of an executable 
statement in the same program unit. 


Example: 


GO TO 376 
310 A(7) = Vl -A(3) 


376 = A(2) ®VECT 
GO TO 310 


In these statements, statement 376 is ahead of 
statement 310 in the logical fiow of the program of 
which they are a part. 


The unconditional GO TO statement causes a branch 
to be taken with ‘no strings‘ attached. The 
statement is often used with other branching 
statements when it becomes necessary to branch back 
to the normal sequence of statements. 


COMPUTED GO TO 
Computed GO TO statements are of the form: 
GO TO (k1,k2,...,n),j 


where the ki are statement labels, and j is an 
integer variable, 1 <j<n. 


This statement causes transfer of control to the 
statement labeled kj. If j < 1 or j > A, control 
will be passed to the next statement following the 
Computed GOTO. 
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In other words, the comuter will branch to kl when 
jzl, k2 when j=#2, k3 when j#3, etc. If j is less 
than or equal tol, or greater than n, control will 
be passed to the next sequential statement. 


This 'passing to the next sequential instruction' 
option is an extension to standard FORTRAN-66, 
which did not allow this function of the statement. 
If attempting to run a standard FORTRAN-66 program, 
lt 18 suggested that the functional form of this 
Statement be checked. Although it may not require 
direct revision, the performance of the program can 
be streamlined by using the full capability of the 
computed GO TO statement. 


The computed GO TO statement is normally used where 
three or more possible branches are required ata 
distinct point 1na program unit. However, it can 
be used on any basis deemed necessary by the 
programmer. 


Example: 
J=3 


GO TO(7, 70, 700, 7000, 70000), J 
310 Jas 
GO TO 325 


When J = 3, the computed GO TO transfers control to 
Statement 700. Changing J to equal 5 changes the 
transfer to statement 70000. Making J = 0 or J = 6 
would cause control to be transferred to statement 
310. 


7.1.3 ASSIGNED GO TO 


Assigned GO TO statements are of the following 
form: 


GO TO j,(k1,k2,...,kn) 
or 
GOTO J 
where J is an integer variable name, and the ki are 
statement labels of executable statements. This 


generates transfer of control to the statement 
whose label is equal to the current value of J. 
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Qualifications 


1. The ASSIGN statement must logically precede an 
assigned GO TO. 


2. The ASSIGN statement must assign a value to J 
which is a statement label included in the list 
of k's, if the list is specified. 


Example: 
GO TO LABEL, (80,90, 100) 


Only the statement labels 80, 90 or 100 may be 
assigned to LABEL. 


The assigned GO TO statement is functionally 
Similar to the computed GO TO statement, except 
that there is no J variable range to contend with. 
In practice, J can be assigned any value desired in 
a preceding ASSIGN statement. Branching is then 
determined by this index value. If jis 1, kl will 
be selected, if j is 2, k2 will be selected, etc. 
Note that all branches possibly required must be 
catered for using this statement, no sequential 
bypass is provided. 


The assigned GO TO statement 1s also an extension 
of standard FORTRAN-66. Existing FORTRAN-66 
programs should be checked for branching statement 
compatability to ensure error-free running and 
accuracy of results. Like the computed GO TO 
Statement, assigned GO TO provides the programmer 
with useful methods to streamline branching 
functions. 


7.2 ASSIGN STATEMENT 
This statement is of the following form: 
ASSIGN j TO 1 


where j is a statement label of an executable 
statement and iis an integer variable. 


The statement is used in conjunction with each 
assigned GO TO statement that contains the integer 
variable i. When the assigned GO TO is executed, 
control will be transferred to the statement 
labeled j. 
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ASSIGN 100 TO LABEL 


ASSIGN 90 TO LABEL 
GO TO LABEL, (80,90,100) 


The ASSIGN statement is an extension to FORTRAN-66 
and is meant to be used only with the assigned GO 
TO statement. Do not confuse this with the term 
‘assignment statement', which are statements 
containing a ‘'#' sign, such as arithmetic and 
logical statements. Note that other FORTRANSs do not 
have an ASSIGN keyword or the assigned GO TO 
statement, that allow the programmer increased 
flexability in generating multiple branch decision 
points ina program unit. While programs written in 
other FORTRANs will probably not require revision 
to use these statements, an existing program could 
be streamlined and shortened by using them. 


7.3 IP STATEMENT 


IF statements transfer control to one of a= series 
of statements depending upon a condition. Two 
types of IF statements are provided: 


Arithmetic IF 


Logical IF 


The FORTRAN standard IFP-THEN-ELSE-ELSE IF-END IF 
statements are not valid in FORTRAN-80. If 
attempting to run a program written in another 
PORTRAN containing these keywords, the program will 
require rewriting (see discussion at beginning of 
SECTION 7). 
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7.3.1 ARITHMETIC IF 


The arithmetic IF statement allows three alternate 
paths to be taken in a program, based on a 
decision. 
The arithmetic IF statement is of the form: 

IF(e) ml,m2,m3 


where e@ iS an arithmetic expression and ml, m2. and 
m3 are statement labels. 


Evaluation of expression e determines one of three 
transfer possibilities: 


If e is: Transfer to: 
< 0 ml 
= 0 m2 
> 0 m3 


Note that the statement directly following an 
arithmetic IF must have a statement label to 
correspond with ml, m2, oc m3. 


Examples: 


Statement Expression Value Transfer to 

IF (A)3,4,5 A215 5 

IF (N-1)50,73,9 N-1=0 73 

IF (AMTX(2,1,2))7,2,1 AMTX=- 256 7 
7.3.2 LOGICAL IF 


The logical IF statement provides conditional 
branching for two alternate paths of program 
execution, based ona logical condition which is 
either true or false. 


The Logical IF statement is of the form: 
IP (u)s 


where u is a Logical expression (el reop e2) and 
8 is any executable statement except a DO statement 
(see 7.4) or another Logical IF statement. The 
Logical expression u is evaluated as .TRUE. or 
.PALSE. Section 4 contains a discussion of Logical 
expressions. 
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Control Conditions: 


If u is FALSE, the statement s is ignored and 
control goes to the next statement following the 
Logical IF statement. If, however, the expression 
is TRUE, then control goes to the statement s, and 
subsequent program control follows normal 
conditions. 


If s is a replacement statement (v = e, Section 5), 
the variable and equality sign (=) must be on the 
Same line, either immediately following IF(u) or on 
a separate continuation line with the line spaces 
following IF(u) left blank. See example 4 below. 


Also note that when writing logical expressions, as 
described in SECTION 4, FORTRAN-80 allows mixed 
mode expressions (Integer, Real, etc.). These are 
evaluated as discussed in SECTION 4. 


Examples: 
1. sIF(1I.GT.20) GO TO 115 


2. IF(Q.AND.R) ASSIGN 10 TO J 
3. IF(Z) CALL DECL(A,B,C) 
4. IF(A.OR.B.LE.PI/2)I2J 


5. IPF{(A.OR.B.LE.PI/2) X)I=J 


DO STATEMENT 


Looping is the process of repeating a sequence of 
instructions a specific number of times with a 
different assigned value for at least one variable 
within the instructions. Some means must be 
provided to control the number of times this 
process is repeated. The DO statement provides one 
means of controlling the looping process. An 
alternative is to write loops using argument pass 
methods (see discussion at beginning of SECTION 7). 
DO statements in FORTRAN-80 are compatable with 
both FORTRAN-66 and FORTRAN-77. The statement is 
implemented in a way similar to FORTRAN-77. 
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The DO statement, as implemented in FORTRAN, 
provides a method for repetitively executing a 
series of statements. The statement takes of one 
of the two following forms: 


1) DO k i = ml,m2,m3 
or 
2) DO k i = ml,m2 


where k 1s a statement label, 1 iS an integer or 
logical variable, and ml, m2 and m3 are integer 
constants or integer or logical variables. 


If m3 is l, it may be omitted as in 2) above. 


Example: 
DO 30 I21,10,1 


The meaning of this statement is: perform (DO) all 
program steps following this one down to, and 
including, the statement numbered 30, with an 
initial value of 1 for the DO index variable named 
I. When statement 30 is executed, increase the 
index variable by 1. Repeatedly perform all steps 
between the DO statement and statement 30 for 
successive values of the index until the index 
exceeds 10. When the index exceeds 10, then go on 
with the program steps following statement 30. 


The following conditions and restrictions govern 
the use of DO statements: 


1. The DO and the first comma must appear on the 
initial line. 


2. The statement labeled k, called the terminal 
statement, must be an executable statement. 


3. The terminal statement must physically follow 
its associated DO, and the executable 
Statements following the DO, up to and 
including the terminal statement, constitute 
the range of the DO statement. 


4. The terminal statement may not be an Arithmetic 
IF, GO TO, RETURN, STOP, PAUSE or another DO. 
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5. If the terminal statement is a logical IF and 
its expression is .FALSE., then the statements 
in the DO range are reiterated. 


If the expression is .TRUE., the statement of 
the logical IP is executed and then the 
statements in the DO range are reiterated. The 
statement of the logical IF may not be a GO TO, 
Arithmetic IF, RETURN, STOP or PAUSE. 


6. The controlling integer variable, i, is called 
the index of the DO range. The index must be 
positive and may not be modified by any 
statement in the range. 


7. j%&rf ml, m2, and m3 are Integer*l variables or 
constants, the DO loop will execute faster and 
be shorter, but the range is limited to 127 
iterations. For example, the loop overhead for 
a DO loop with a constant limit and an 
increment of 1 depends upon the type of the 
index variable as follows: 


Index Variable Overhead 

Type Microseconds Bytes 
INTEGER *2 35.5 19 
INTEGER *1 24 14 


8. During the first execution of the statements in 

the DO range, i is equal to ml; the second 
execution, i = ml+m3; the third, izml+2*m3, 
etc., until i is equal to the highest value in 
this sequence less than or equal to m2, 
then the DO is said to be satisfied. The 
statements in the DO range will always be 
executed at least once, even if ml > m2. 
Note that PORTRAN-66 does not allow ml to be 
greater than m2. FORTRAN-77 does allow it. If 
attempting to run existing programs, in all 
probability, no revisions will be needed if 
the program has been written per standard 
FORTRAN conventions. 


When the DO has been satisfied, control passes 
to the statement following the terminal 
statement, otherwise control transfers back to 
the first executable statement following the DO 
statement. 
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Example: 


The following example computes 


Sigma Ai where a is a one-dimensional array 
ia) 


100 DIMENSION A(100) 


SUM = A(1) 
DO 31 I = 2,100 
31 SUM =SUM + A(I) 


END 


9. The range of a DO statement may be extended to 
include all statements which may logically be 
executed between the DO and its terminal 
statement. Thus, parts of the DO range may be 
situated such that they are not physically 
between the DO statement and its terminal 
statement but are executed logically in the DO 
range. This is called the extended range. 


Example: 
DIMENSION A(500), B(500) 


DO 50 I = 10, 327, 3 


IP (v7 -cC*C) 20,15, 31 
30 . 


50 A(I) = B(I) + C 


20 C#C- .05 
GO TO 50 

31 C#c+ .0125 
GO TO 30 
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10. It is invalid to transfer control into the 
range of a DO statement not itself in the range 
Or extended range of the same DO statement. 


ll. Within the range of a DO statement, there may 
be other DO statements, in which case the DO's 
must be nested. That 1s, if the range of one 
DO contains another DO, then the range of the 
inner DO must be entirely included in the range 
of the outer DO. 


The terminal statement of the inner DO may also 
be the terminal statement of the outer DO. For 
example, given a two dimensional array A of 15 
rows and 15 columns, and a one dimensional 
array B, the following statements compute the 
15 elements of array C from the formula: 


15 
Ck=Sigma AkjBm, k=1,2,...,15 
j=1 


DIMENSION A(15,15), B(15), C(15) 


DO 80 k=1,15 


C(k) = 0.0 
DO 80 j=1,15 
80 C(k) = C(k) +A(k, 3) *B( 4) 
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CONTINUE STATEMENT 


CONTI NUE is Classified as an executable statement. 
However, its execution does nothing. The form of 
the CONTINUE statement is as follows: 


CONTINUE 


CONTINUE is frequently used as the terminal 
statement in a DO statement range when the 
statement which would normally be the terminal 
Statement is one of those which are not allowed or 
is only executed conditionally. For example. the 
STOP, END, DO, and FORMAT statements can not be 
used as the last statement of a DO loop. A numbered 
CONTINUB statement is inserted in such cases 
immediately following the last instruction to be 
executed, and its number is used as a reference 
number by the DO statement. 


Example: 
DO 5 K = 1,10 


IF (C2) 5,6,6 
6 CONTINUE 


C2 = C2 +.005 

5 CONTINUE 
STOP STATEMENT 
The programmer must provide a means of termination 
during program execution after the desired 
operations have been performed. The STOP statement 
provides this feature. 
A STOP statement has one of the following forms: 

STOP 

or 

STOP c 


where c is any string of one to six characters. 
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When STOP is encountered during execution of the 
object program, the characters c (if present) are 
displayed on the operator control console and 
execution of the program terminates. 


The STOP statement, therefore, constitutes the 
logical end of the program. 


7.7 PAUSE STATEMENT 


The PAUSE statement is an extension to standard 
FORTRAN and allows the programmer to temporarily 
halt program execution for operator intervention or 
input of data, etc. A prompt message facility is 
provided for operator guidance or as required. 


A PAUSE statement has one of the following forms: 
PAUSE 
or 
PAUSE c 

where c is any string of up to six characters. 


When PAUSE is encountered during execution of the 
object program, the characters c (if present) are 
displayed on the operator control console _ and 
execution of the program ceases. 


The decision to continue execution of the program 
is not under control of the program. If execution 
is resumed through intervention of an operator 
without otherwise changing the state of the 
processor, the normal execution sequence, following 
PAUSE, is continued. 


Execution may be terminated by typing a "T" at the 
operator console. Typing any other character will 
cause execution to resume. 


7.8 CALL STATEMENT 


CALL statements control transfers into SUBROUTINE 
subprograms and provide parameters for use by the 
subprograms. The general forms and detailed 
discussion of CALL statements appear in Section 9, 
FUNCTIONS AND SUBPROGRAMS. 
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7.9 RETURN STATEMENT 


The form, use and interpretation of the RETURN 
statement is described in Section 9. 


7.10 END STATEMENT 


The END statement must physically be the last 
Statement of any FORTRAN program. It has the 
following form: 


END 


The END statement is an executable statement and 
may have a statement label. It causes a transfer 
of control to be made to the system exit routine 
SEX, which returns control to the operating system. 


An END statement should not have a statement label 
number as it cannot be branched to, and it may not 
be continued. Use of the END statement does not 
terminate program execution, the STOP statement 18 
used for this function. 
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SECTION 8 


INPUT / OUTPUT 


FORTRAN provides a series of statements which define the 
control and conditions of data transmission between computer 
memory and external data handling or mass storage devices 
such as magnetic tape, disk, line printer, punched card 
processors, keyboard printers, etc. 


These statements are grouped as follows: 
1. Formatted READ and WRITE s':atements which cause 


formatted information to be transmitted between the 
computer and I/O devices. 


2. Unformatted READ and WRITE Statements which 
transmit unformatted binary data ina form similar 
to internal storage. 


3. Auxiliary I/O statements for positioning and 
demarcation of files. 


4. ENCODE and DECODE statements for transferring data 
between memory locations. 


5. FORMAT statements used in conjunction with 
formatted record transmission to provide data 
conversion and editing information between internal 
data representation and external character string 
forms, 


Input and output (I/0) statements are used by the programmer 
to instruct the computer to select information from a 
specified input device or provide information to a 
designated output device.These statements are positioned in 
a program to input or output information at the proper time. 


The basic input statement is the READ statement and the 
basic output statement is the WRITE statement. SBoth 
statements specify the I/O device to be selected and may 
reference a corresponding FORMAT statement. The FORMAT 
statement, when used, specifies in detail how to input or 
output the information. 


Although FORTRAN-80 can support most common peripheral 
types, OSBORNE 1 users will be most interested in writing 
I/O statements for disketteand printer file handling. 
Appropriate information has been included for this and other 
types of I/O devices. 
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8.1 FORMATTED READ/WRITE STATEMENTS 
8.1.1 FORMATTED READ STATEMENTS 


A formatted READ statement is used to transfer 
information from an input device to the computer. 
It is called formatted because a FORMAT statement 
must be used in conjunction with the READ statement 
(FORMAT statements are discussed in paragraph 8.7). 
Two forms of the formatted READ statement are 
avallable as follows: 


READ (u,f,ERR2L1,END2L2) k 
Or 
READ (u,f,ERR#L1,END2L2) 


u - specifies a Physical and Logical Unit Number 
and may be either an unsigned integer or an 
integer variable in the range 1 through 10. If 
an Integer variable is used, an Integer value 
must be assigned to it prior to execution of 
the READ statement. See Appendix B for I/O 
interface information. 


Units 1, 3, 4, and 5 are preassigned to the 
console Teletypewriter. Unit 2 18 preassigned 
to the Line Printer (if one exists). Units 
6-10 are preassigned to Disk Files (see User's 
Manual, Section 3). These units, 23s well as 
units 11-255, may be re-assigned by the user 
(see Appendix B). 


f - is the statement label of the FORMAT statement 
describing the type of data conversion to be 
used within the input transmission or it may be 
an array name, in which case the formatting 
information may be input to the program at the 
execution time. (See Section 8.7.10) 


Ll- is the FORTRAN label on the statement to which 
the I/O processor will transfer control if an 
I/O error is encountered. 


L2- is the FORTRAN label on the statement to which 
the I/O processor will transfer control if an 
End-of-File is encountered. 


k - is a list of variable names, separated by com- 
mas, specifying the input data. 
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The inclusion of I/O error and End-of File error 
conditions in READ and WRITE statements is an 
extension to FORTRAN-66, and is similar to the 
feature provided in FORTRAN-77. If attempting to 
run an existing program in another FORTRAN, ensure 
that the form of formatted READ and WRITE 
Statements include these features. This will 
eliminate non-recoverable run time faults halting 
execution if an I/O error or EOF is encountered 
before READ or WRITE is completed. 


READ (u,f)k is used to input a number of items, 
corresponding to the names in the list k, from the 
File on logical unit u, and using the FORMAT 
statement f to specify the external representation 
of these items (see FORMAT statements, 8.7). The 
ERR=# and END#= clauses are optional. If not 
specified, I/O errors and End-of-PFiles cause fatal 
runtime errors. 


The following notes further define the function of 
the READ (u,f)k statement: 


1. Each time execution of the READ statement 
begins, a new record from the input file is 
read. 


2. The number of records to be input by a= single 
READ statement is determined by the list, k, 
and format specifications. 


3. The list k specifies the number of items to be 
read from the input file and ‘the locations into 
which they are to be stored. 


4. Any number of items may appear ina single list 
“and the items may be of different data types. 


5S. If there are more quantities in an input record 
than there are items in the list, only the 
number of quantities equal to the number of 
items in the list are transmitted. Remaining 
quantities are ignored. 


6. Exact specifications for the list k are 
described in 8.6. 
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Examples: 


1. Assume that four Integer data entries are 
stored in a sequential disk file and that the 
values have field widths of 3, 4, 2 and 5 
respectively. The statements 


READ(5, 20)K,L,M,N 
20 FPORMAT(1I3,14,12,15) 


will read the file and assign the input data to 
the variables K, L, M and N. 


See 8.7 for complete description of FORMAT 
statements. 


2. Input the quantities of an array (ARRY): 
READ (6,21) ARRY 


Only the name of the array needs to appear in 
the list (see 8.6). All elements of the array 
ARRY will be read and stored using the 
appropriate formatting specified by the FORMAT 
statement labeled 21. 


READ(u,k) may be used in conjunction with a FORMAT 
statement to read H-type alphanumeric data into an 
existing H-type field (see Hollerith Conversions, 
8.7.3). 


Por example, the statements 


READ (1,25) 


25 PORMAT(10HABCDEFGHIJ) 


cause the next 10 characters of the file on input 
device I to be read and replace the characters 
ABCDEFGHIJ in the FORMAT statement. 
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8.1.2 FORMATTED WRITE STATEMENTS 


A formatted WRITE statement is used to ttransfer 
information from the computer to an output device. 


Two forms of the statement are available, as 
follows: 


WRITE(u,f ,ERR=L1,END=L2)k 

or 

WRITE (u,f,ERR=L1,END=L2) 
where: 
u - specifies a Logical Unit Number. 


f - 18 the statement label of the FORMAT statement 
describing the type of data conversion to be 
used with the output transmission, 


Ll- specifies an I/O error branch. 
L2- specifies an EOF branch. 


k - 1S a list of variable names separated by com- 
mas, specifying the output data. 


WRITE (u,f)k 1S used to output the data specified 
in the list k to a file om logical unit u using the 
FORMAT statement f£ to specify the external 
representation of the data (see FORMAT statements, 
8.7). The following notes further define the 
function of the WRITE statement: 


l1. Several records may be output with a= single 
WRITE statement, with the number determined by 
the list and FORMAT specifications. 


2. Successive data are output until the data 
specified in the list are exhausted. 


3. If output is to a device which specifies fixed 
length records and the data specified in the 
list do not fill the record, the remainder of 
the record is filled with blanks. 
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Example: 
WRITE(2,10)A,B,C,D 


The data assigned to the variables A, B, C and 0D 
are output to Logical Unit Number 2, formatted 
according to the FORMAT statement labeled 10. 


WRITE(u,f) may be used to write alphanumeric 
information when the characters to be written are 
Specified within the FORMAT statement. In this 
case a variable list 1S not required. 


For example, to write the characters '‘'H CONVERSION' 
on unit l, 


WRITE(1, 26) 


26 FORMAT ('H CONVERSION') 


8.2 UNFORMATTED READ/WRITE 


A formatted record consists of a sequence of 
characters represented in a standard coded form 
(i.e. Integer, Real, etc.) acceptable for printing 
whereas an unformatted record is a sequence of 
values in a computer-dependent form. This form is a 
direct transfer of the internal data representation 
without being converted to a standard code. [t 18s 
more compact and is frequently used for storing 
large amounts of data. It is also considerably 
faster since conversion to a standard code is not 
required. It should never be used when portability 
of data from one type of machine to another typeis 
required, however. Since it 18 not in readable 
character form, it is not suitable for printer 
output. 
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Unformatted I/O (i.e. without data conversion) is 
accomplished using the statements: 


READ(u, ERR#®L1,END#L2) k 
WRITE(u, ERR#*L1,END=L2) k 
where: 


u - specifies a Logical Unit Number. 

Ll- specifies an I/O error branch. 

L2- specifies an EOF branch. 

k - 18 a list of variable names, separated by 
commas, specifying the I/O data. 


The following notes define the functions of 
unformatted I/O statements. 


1. Unformatted READ/WRITE Statements perform 
memory-image transmission of data with no data 
conversion or editing. 


2. The amount of data transmitted corresponds to 
the number of variables in the list k. 


3. The total length of the list of variable names 
in an unformatted READ must not be longer than 
the record length. If the logical record 
length and the length of the list are the same, 
the entire record is read. If the length of 
the list 1s shorter than the logical record 
length the unread items in the record are 
skipped. 


4. The WRITE(a)k statement writes one logical 
record. 


5S. A logical record may extend across more than 
one physical record. 


8.3 DISK FILE I/O 


A READ or WRITE to a disk file (LUN 6-10) 
automatically OPENs the file for I/O. The file 
remains open until closed by an ENDFILE command 
(see Section 8.4) or until normal program 
termination. Exercise caution when doing 
sequential output to disk files. If output is done 
to an existing file, the existing file will be 
deleted and replaced with a new file of the same 
name. 
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8.3.1 RANDOM DISK I/O 


SEE ALSO SECTION 5 OF THE FORTRAN USER'S MANUAL. 


For random disk access, the record number is 
Specified by using the REC=n option in the READ or 
WRITE statement. For example: 


I = 10 
WRITE (6,20,REC2I,ERR=50) X, Y, Z 


This program segment writes record 10 on LUN 6. If 
a previous record 10 exists, it is written over. 
If no record 10 exists, the file is extended to 
create one. Any attempt to read a non-existent 
record results in an I/O error. The correct 
procedure to output records to existing files is to 
first perform a read on the file. 


8.3.2 OPEN SUBROUTINE 


Alternatively, a file may be OPENed using the OPEN 
subroutine. LUNs 1-5 may also be assigned to disk 
files with OPEN. The OPEN subroutine allows the 
program to specify a filename and device to be 
associated with a LUN. An OPEN of a non-existent 
file creates anull file of the appropriate 
name. 


An OPEN of an existing file followed by 
sequential output deletes the existing file. 
An OPEN of an existing file followed by an 
input allows access to the current contents of 
the file. 


The form of an OPEN call can vary under different 


operating systems. See your FORTRAN User's Manual, 
Section 5. 
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8.4 


8.5 


AUXILIARY I/O STATEMENTS 
Three auxiliary I/O statements are provided: 
BACKSPACE u 


REWIND u 
ENDFILE u 


The actions of all three statements depend on the 
LUN with which they are used (see Appendix B). 
When the LUN 18S for a terminal or line printer, the: 


three statements are defined as no-ops. 


When the LUN 18s for a disk drive, the ENDFILE and 
REWIND commands allow further program control of 
disk files. ENDFILE u closes the file associated 
with LUN u. REWIND u closes the file associat#d 
with LUN u, then opens it again. BACKSPACE is not 
implemented at this time, and therefore causes an 


error if used. 


ENCODE/DECODE 
ENCODE and DECODE Statements "ransfer data, 
according to format specifications, from one 


section of memory to another. DECODE changes data 
from ASCII format to the specified format. ENCODE 
changes data of the specified format into ASCII 


format. The two statements are of the form: 


ENCODE(a,f£) k 
DECODE(a,£) k 


where: 


ais an array name 
f 1S FORMAT statement number 
k 18 an I/O List 


DECODE is analogous to a READ statement, since it 


causes conversion from ASCII to internal format. 


ENCODE 1s analogous to a WRITE statement, causing 


conversion from internal formats to ASCII. 
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8.6 


NOTE 


Care should be taken that the array A is 
always large enough to contain all of the 
data being processed. There is no_ check 
for overflow. An ENCODE operation which 
overflows the array will probably wipe out 
important data following the array. A 
DECODE operation which overflows will 
attempt to process the data following the 
array. 


INPUT/OUTPUT LIST SPECIFICATIONS 


Most forms of READ/WRITE statements may contain = an 
ordered list of data names which identify the data 
to be transmitted. The order in which the list 
items appear must be the same as that in which the 
corresponding data exists (Input), or will exist 
(Output) in the external I/O medium, 


Lists have the following form: 
ml,m2,...,mn 


where the mi are list items separated by commas, as 
shown. 


IST ITEM TYPES 


A list item may be a single datum identifier or a 
multiple data identifier. 


1. <A single datum identifier item 1s the name of a 
variable or array element. 


Examples: 


A 
C(26,1),R,K,D 
B,1(10,10),S,F(1,25) 


NOTE 


Sublists are not implemented. 
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2. Multiple data identifier items are in two 
forms: 


a. An array name appearing ina list without 
subscript(s) 18 considered equivalent to the 
listing of each successive element of the 
array. 


Example: 


If B is a two dimensional array, the list item 
B is equivalent to: 


B(1,1),B(2,1),B(3,1)...., 
B(1,2),B(2,2)...,B(j,k). 


where j and k are the subscript limits of B. 


b. OO-implied items are lists of one or more 
single datum identifiers or other DO-implied 
items followed by a comma character and an 
expression of the form: 


i = ml,m2,m3 or 1 = ml,m2 


and enclosed in parentheses. 


The elements i,ml,m2,m3 have the same meaning 
as defined for the DO statement. The DO 
implication applies to all list items enclosed 
in parentheses with the implication. 
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Examples: 

DO-Implied Lists Equivalent Lists 
(X(I),Iz1, 4) X(1),X(2) ,X(3) ,X(4) 
(Q(J),R(J) ,J#l1, 2) Q(1),R(1) ,Q(2) ,R( 2) 
(G(K) ,K#1,7,3) G(1),G(4) ,G(7) 


((A(I,J),1I23,5) ,J#1,9,4) A(3,1),A(4,1),A(5,1) 
A(3,5),A(4,5),A(5,5) 
A(3,9),A(4,9) ,A(5,9) 


(R(M) ,M21,2),1I,ZAP(3) R(1),R(2),1,Z2AP(3) 
(R(3),T(I),I#1,3) R(3),T(1),R(3),T(2), 
R(3),T(3) 


Thus, the elements of a matrix, for example, 
may be transmitted in an order different from 
the order in which they appear in storage. The 
array A(3,3) occupies storage in the order 


A(1,1),A(2,1), A(3,1),A(1,2),A(2,2) ,A(3,2), 
A(1,3),A(2,3),A(3,3). 


By specifying the transmission of the array 
with the DO-implied list item 
((A(I,J),J2#1,3),121,3), the order of 
transmission is: 


A(1,1),A(1,2),A(1,3),A(2,1),A(2,2), 
A(2,3),A(3,1),A(3,2),A(3, 3) 


8.6.2 SPECIAL NOTES ON LIST SPECIFICATIONS 
1. The ordering of a list is from left to right 
with repetition of items enclosed in 
parentheses (other than as_ subscripts) when 
accompanied by controlling DO-implied index 
parameters. 


2. Arrays are transmitted by the appearance of the 
array name (unsubscripted) in an input/output 
list. 


3. Constants may appear in an input/output list 
only as subscripts or as indexing parameters. 


4. For input lists, the DO-implying elements i, 


ml, m2 and m3 may not appear within the 
parentheses as list items. 
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Examples:- 
1. READ (1,20) (1,J,A(I),I21,J,2) is not allowed 


2. READ(1,20)1I,.7,(A(I) ,I21,J,2) is allowed 
3. WRITE(1,20) (1,J,A(I),I21,J,2) is allowed 
Consider the following examples: 


DIMENSION A(25) 


A(l) = 2.1 
A(3) 2 2.2 
A(5) = 2.3 
Jz5 


WRITE (1,20) J,(1I,A(1I) ,1=1,J,2) 


the output of this WRITE statement is 


§,1,2.1,3,2.2,5,2.3 
l. Any number of items may appear in ae single 
list. 
2. In a formatted transmission (READ(u,f£)k, 


WRITE(u,£)k) each item must have the correct 
type as specified by a FORMAT statement. 


8.7 FORMAT STATEMENTS 


FORMAT statements are non-executable, generative 
Statements used in conjunction with formatted READ 
and WRITE statements. They specify conversion 
methods and data editing information as the data is 
transmitted between computer storage and external 
media representation. 


FORMAT statements require statement labels’ for 


reference (f) in the READ(u,f)k or WRITE(u,£)k 
statements. 
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The general form of a FORMAT statement LS o4s 
follows: 


m FORMAT (sl,s2,...,Sn/Sl',S2',...,38n'/...) 


where mis the statement label and each si is a 
field descriptor. The word FORMAT and the 
parentheses must be present as_7~ shown. The slash 
(/) and comma (,) characters are field separators 
and are described in a separate subparagraph. The 
field 1s defined as that part of an external record 
occupled by one transmitted item, 


The key to understanding FORMAT statements depends 
On proper use of the field descriptors within the 
Statement. For example, if you wish to READ or 
WRITE Integer variable data using the formatted 
READ or WRITE statements, it 1S necessary to use 
FORMAT statements that set-up or respond-to the 
proper storage of Integer data. 


In FORTRAN, the conversion and storage of Integer 
data is accomplished using a code called the'l 
format code' (I stands for integer). The I format 
code is used in READ (or WRITE) statements and 
corresponding FORMAT statements to specify integer 
type of data transfer, and the field width of the 
data in the record. As will be discussed in later 
paragraphs, the general form of the I format code 
1S: 


m FORMAT(...,CIw,...) 


where r is the number of times the code 1S to be 
repeated. 


I 1S the code type. 
wis the field width. 


Example: 
Assuming you have a data record such as: 
5789643899875 


Stored and wish to READ them as values of a 
specific set of variables, you could write tne 
following statements: 


READ (6,10)J,K,L 
10 FORMAT(I1,13,12) 
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which would assign the following: 


Variable Format Code No.Columns Value 
in Field Stored 
J Il l 5 
K 13 3 189 
L 12 2 64 


Note that 1f two or more READ Statements are 
encountered, a separate record would be accessed 
for each statement. Likewise, if your writng data, 
one data record will be created for each WRITE 
statement. 


The following paragraphs explain the details 
involved in using the various field descriptors. 


8.7.1 FIELD DESCRIPTORS 


Field descriptors describe the sizes of data fields 
and specify the type of conversion to be exercised 
upon each transmitted datum. The FORMAT field 
descriptors may have any of the following forms: 


Descriptor Classification 

rFw.d Real or Double Precision 
Conversion 

rGw.d Real, Exponential Real, or 


Double Precision Conversion 


rEw.d Real, or Real Exponential 
Conversion 


rDw.d Double Precision Only 
Conversion 


rlw Integer Only Conversion 
r Lw Logical Only Conversion 
r Aw Hollerith, or Literal 
nHhlh2...hn Conversion 

"L112...1n' 

nx Spacing Specification 
mP Scaling Factor 
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where: 


1. wand n are positive integer constants defining 
the field width (including digits, decimal 
points, algebraic signs) in the external data 
representation. 


2. d is an integer specifying the number of 
fractional digits appearing in the external 
data representation. 


3. The characters F, G, E, D, I, A and L_ indicate 
the type of conversion to be applied to the 
items in an input/output list. 


4. rr 18 an optional, non-zero integer indicating 
that the descriptor will be repeated r times. 


S. The hi and li are characters from the FORTRAN 
character set. 


6. mis an integer constant (positive, negative, 
Or zero) indicating scaling. 


NUMERIC CONVERSIONS 


Input operations with any of the numeric 
conversions will allow the data to be represented 
in a “Free Format"; 1i.e., commas may be used to 
separate the fields in the external representation. 


F-type conversion 
Form: Fw.d 


Real or Double Precision type data are processed 
using this conversion. w characters are processed 
of which d are considered fractional. 


F-output 


Values are converted and output as minus) sign (if 
negative), followed by the integer portion of the 
number, a decimal point and d digits of the 
fractional portion of the number. If a value does 
not fill the field, it is right justified in the 
field and enough preceding blanks to fill the field 
are inserted. If a value requires more field 
positions than allowed by w, the first w-l digits 
of the value are output, preceded by an asterisk. 
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F-Output Examples: 


FORMAT Internal Output 

Descriptor Value (b=blank) 

F10.4 368.42 bb 368.4200 

F7 .1 -4786. 361 -4786.4 

F8.4 8.7E-2 bb0.0870 

F6.4 4739.76 * .7600 

F7.3 -5.6 b-5.600 

* Note the loss of leading digits in the 4th line 
above, 

F-Input 


(See the description under E-Input below.) 

E-type Conversion 

Form: Ew.d 

Real or Double Precision type data are processed 


uSing this conversion. w characters are processed 
of which d are considered fractional. 


E-Out put 


Values are converted, rounded to d digits, and 
output as: 


lL. aminus sign (if negative), 

2. azero and a decimal point, 

3. dad decimal digits, 

4. the letter E, 

5. the sign of the exponent (minus or blank), 

6. two exponent digits, 

in that order. The values as described are right 
justified in the field w with preceding blanks to 
fill the field if necessary. The field width w 


should satisfy the relationship: 


w>da+i 
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Otherwise significant characters may be lost. Some 
E-Output examples follow: 


FORMAT Internal Output 
Descriptor Value (b=blank) 
E12.5 76.573 bb .76573Eb02 
El4.7 -~32672.354 -b.326723%5H).05 
E13.4 -0 .0012321 bb-b.Lu32h-0 2 
E8 .2 76321.73 b.76Eb05 
E-Input 


Data values which are to be processed under FE, F, 
Or G conversion can be a relatively loose format in 
the external input medium. The format 1s identical 
for either conversion and is as follows: 

1. Leading spaces (ignored) 


2. A + or = Sign (an unsigned input 1s assumed to 
be positive) 


3. A string of digits 

4. A decimal point 

5. A second string of digits 
6. The character E 

7. A * Or - Sign 

8. <A decimal exponent 


Each item in the list above is optional: but th» 
following conditions must be obs ived: 


l. If FORMAT items 3 and 5 (above) are present, 
then 418s required. 


2. If FORMAT item 8 is present, then 6 or 7 of 
both are required. 


3. All non-leading spaces are considered zeros. 
Input data can be any number of digits in length, 
and correct magnitudes will be developed, but 


precision will be maintained only to the extent 
specified in Section 3 for Real data. 
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E- and F- and G- Input Examples: 


FORMAT Input Internal 
Descriptor (b=blank) Value 

E10 .3 +0.23756+4 +2375.60 
El10.3 bbbbb17631 +17 .631 
G8 .3 b1628911 +1628 .911 
F12.4 bbbb-6321132 -632.1132 


Note in the above examples that if no decimal point 
i$ given among the input characters, the d in the 
FORMAT specification establishes the decimal point 
in conjunction with an exponent, if given. If a 
decimal point is included in the input’ characters, 
the d specification is ignored. 


The letters E, F, and G are interchangeable in the 


input format specifications. The end result is the 
same, 


D-Type Conversions 
D-Input and D-Output are identical to E-Input' and 


E-Output except the exponent may be specified with 
a "D* instead of an “E." 


G-Type Conversions 
Form: Gw.d 


Real or Double Precision type data are _ processed 
using this conversion. w characters are processed 
of which d are considered significant. 


G-Input: 

(See the description under E-Input) 

G-Output: 

The method of output conversion is ae function of 
the magnitude of the number being output. Let n be 


the magnitude of the number. The following table 
shows how the number will be output: 
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Magnitude Equivalent Conversion 
ol <2n <¢ il F(w-4) .d,4X 
l1<zn< 10 F(w-4) .(d-1l) , 4X 

d-2 d-l 
10 <2 n < 10 F(w-4).1,4X 
d-l d 
10 <zn < 10 F(w-4) .0,4X 
Otherwise Ew .d 


I-Conversions 
Form: Iw 


Only Integer data may be converted by this form of 
conversion. w specifies field width. 


T-Output: 


Values are converted to Integer constants. 
Negative values are preceded by a minus sign. If 
the value does not fill the field, it 18s fright 
justified in the field and enough preceding blanks 
to fill the field are inserted. If the value 
exceeds the field width, only the least significant 
w-l characters are output preceded by an asterisk. 


Examples: 


FORMAT Internal Output 
Descriptor Value (b=blank) 
16 +281 bbb 281 
16 -23261 -23261 
13 126 126 
14 -226 -226 

I-Input: 


A field of w characters is input and converted to 
internal integer format. A minus sign may precede 
the integer digits. If a sign is not present, the 
value is considered positive. 
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Integer values in the range -32768 to 32767 are 
accepted. Non-leading spaces are treated as zeros. 


Examples: 


Format Input Internal 
Descriptor (b=blank) Value 
14 bl24 124 
14 -124 -124 
17 bb6732b 67320 
14 Lb2b 1020 
8.7.3 HOLLERITH CONVERSIONS 


A-Type Conversion 
The form of the A conversion is as follows: 
Aw 


This descriptor causes unmodified Hollerity 
characters to be read into or written from 4 
specified list item. 


The maximum number of actual characters which may 
be transmitted between internal and external 
representations uSing Aw 13 four times) the  niumbert 
of storage units in the corresponding Tisit rtocin 
(1.e., 1 character for logical items, 2 characters 
for Integer items, 4 characters for Real iteeni ant 
8 characters for Double Precision items). 


A-Output: 


If w is greater than 4n (where nis the number of 
Storage units required by the list item), the 
external output field will consist of w-4n blanks 
followed by the 4n characters from the internal 
representation. If wis less than 4n, the external 
output field will consist of the leftmost w 
characters from the internal representation. 
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Examples: 


Format 
Descriptor 


Al 
Al 
A2 
A3 
A4 
Al 


A-Input: 


If wis greater than 4n 


Internal 


Type 


Byte 
Intege” 
Integer 
Real 
Real 
Real 


(where nis the 
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Output 
(b=blanks) 


A 

A 

Ab 

ABC 
ABCD 
bDDABC)D 


Number of 


storage units required by the corresponding list 
item), the rightmost 4n characters are taken from 
the external input field. If wis less than 4n, 
the w characters appear left justified with w-4n 
trailing blanks in the internal representation. 
Examples: 
Format Input Type Internal 
Descriptor Characters (bebiank) 

Al A Byte A 

Al A Integer Ab 

A3 ABC Integer AB 

A4 ABCD Integer Aid 

Al A Real Abbpb 

Al ABCDEFG Real DERG 


H-Conversion 


The forms of H conversion are as 


nHhlh2...hn 


"hlh2...hna' 


These 
strings 
field, 


descriptors 
between 


the 


process 
descriptor 
where each hi represents any character 


the ASCII character set. 


Hollerith 
and 


Follows: 


character 


the externai 


- 
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NOTE 


Special consideration is required if an 
apostrophe (') is to be used within the 
literal string in the second form. An 
apostrophe character within the string is 
represented by two successive apostrophes. 
See the examples below. 


H-Out put: 


The n characters hi, are placed in the external 
field. In the nHhlh2...hn form the number of 
characters in the string must be exactly as 
specified by nn. Otherwise, characters from other 
descriptors will be taken as part of the string. 
In both forms, blanks are counted as characters. 


Examples: 

Format Output 

Descriptor (b=blank) 
lHA or 'A‘ A 
8HDSTRINGD or 'bSTRINGD' bSTRINGbD 
L1LHX(2,3) 212.0 or 'X(2,3)2#12.0' X(2,3) 212.0 
LIHIDSHOULDN'T or ‘IbBSHOULDN''T' IbSHOULDN 'T 
H-Input 


The n characters of the string hi are replaced by 
the next n characters from the input record. This 
results in a new string of characters inthe field 


descriptor. 

FORMAT Input Resultant 

Descriptor (b=blank) Descriptor 
4H1234 or '1234' ABCD 4HABCD or 'ABCD' 
7HDbDPALSE or ‘bbFALSE' DFALSEb 7HDPALSEb or ‘bFALSED' 
6Hbbbbbb or ‘bbbbbb* MATRIX 6HMATRIX or 'MATRIX' 
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8.7.4 LOGICAL CONVERSIONS 
The form of the logical conversion is as follows: 
Lw 
L-Output:; 


If the value of an item in an output list 
corresponding to this descriptor is 0, an F will be 


output; otherwise, a T will be output. If w is 
greater than 1, w-l leading blanks precede the 
letters. 
Examples: 
FORMAT Internal Output 
Descriptor Value (b=blank) 
Ll =Q P 
Ll <>0 T 
LS <>0 bbbbT 
L7 =0 bbbbbbF 
L-Input 


The external representation occupies w positions. 
It consists of optional blanks followed by a "T" or 
"PF", followed by optional characters. 


8.7.5 X DESCRIPTOR 
The form of X conversion is as follows: 
nx 


This descriptor causes no conversion to occur, nor 
does it correspond to an item in an input/output 
list. When used for output, it causes n blanks to 
be inserted in the output record. Under input 
circumstances, this descriptor causes the next nn 
characters of the input record to be skipped. 


Output Examples: 


FORMAT Statement Output 
(b=blank) 

3 FORMAT (1HA,4X,2HBC) AbbbbBC 

7 FPORMAT (3X, 4HABCD,1X) bbb ABCDb 
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Input Examples: 
FORMAT Statement Input String Resultant Input 


10 PORMAT (F4.1,3X,F3.0) 12.5ABC120 12.5,120 
5 FORMAT (7X,13) 1234567012 012 


8.7.6  P DESCRIPTOR 


The P descriptor is used to specify a scaling 
factor for real conversions (F, E, D, G). ‘The form 
is nP where nis an integer constant (positive, 
negative, or zero). 


The scaling factor is automatically set to zero at 
the beginning of each formatted I/O call (each READ 
Or WRITE statement). If a P descriptor 1s 
encountered while scanning a FORMAT, the scale 
factor is changed to n. The scale factor remains 
changed until another P descriptor is encountered 
or the I/O terminates. 


During E, F, or G input the scale factor takes 
effect only if no exponent 18 present in the 
external representation. In that case, the 
internal value will be a factor of 10*%*n less than 
the external value (the number will be divided by 
10**n before being stored). 


E-Output, D-Output: 
The coefficient is shifted left n places’ relative 


to the decimal point, and the exponent is reduced 
by n (the value remains the same). 


F-Out put: 


The external value will be 10*%*n times the internal 
value. 


G-Output: 
The scale factor is ignored if the internal value 


is small enough to be output using F conversion. 
Otherwise, the effect is the same as for E output. 
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8.7.7 SPECIAL CONTROL FEATURES OF FORMAT STATEMENTS 


8.7.7.1 Repeat Specifications 


1. The E, F, D, G, I, Land A field descriptors 
may be indicated as repetitive descriptors by 
using a repeat count r in the form rEw.d, 
rFw.d, rGw.d, riw, rbLw, rAw. The following 
pairs of FORMAT statements are equivalent: 


66 FORMAT (3F8.3,F9.2) 
C IS EQUIVALENT TO: 
66 FORMAT (F8.3,F8.3,F8.3,F9. 2) 


14 FORMAT (213, 2A5,2E10.5) 
C IS EQUIVALENT TO: 
14 FORMAT (13,13,A5,A5,E10.5,E190.5) 


2. Repetition of a group of field descriptors 15 
accomplished by enclosing the group 19 


parentheses preceded by a repeat count, 
Absence of a repeat count indicates a count of 
one. Up to two levels of parentheses, 


including the parentheses required by tne 
FORMAT statement, are permitted. 


Note the following equivalent statements: 


22 FORMAT (13,4(F6.1,2X)) 
C IS EQUIVALENT TO: 


22 FORMAT (13,F6.1,2X%,F6.1,2X%,16.1,22, 
l F6.1,2X) 
3. Repetition of FORMAT descriptor: L 4 wee 


initiated when all descriptors 3n the FORMAT 
Statement have been used but there are still 
items in the input/output list that have not 
been processed. When this occurs the FORMAT 
descriptors are re-used starting at the first 
opening parenthesis in the FORMAT statement. A 
repeat count preceding the parenthesized 
descriptor(s) to be re-used is also active in 
the re-use. This type of repetitive use of 
FORMAT descriptors terminates processing of the 
current record and initiates the processing of 
anew record each time the re-use begins. 
Record demarcation under these circumstances 1s 
the same as in the paragraph 8.7.7.2 below. 
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8.7.7.2 


Input Example: 


DIMENSION A(100) 
READ (3,13) A 


L3) FORMAT (5F7. 3) 


In this example, the first 5 quantities from each 
of 20 records are input and assigned to the arzay 
elements of the array A. 


Output Example: 


WRITE (6,12)E,F,K,L,M,KK,LL,MM,K3,LE, 
iN M3 


L2 FORMAT (2F9.4,(317)) 


In this example, three records are written. Record 
1 contains E, F, K, L and ™, Because thre 
descriptor 317 1s reused twice, Record 2. contains 
KK, LL and MM and Record 3 contains K3, L3 and M3. 


Field Separators 


Two adjacent descriptors must De® separated oun 
FORMAT statement by either a comma or one or conor? 
Slashes. 


Example: 
2HOK/F6.3 or 2HOK,F6. 3 


The slash not only separates field descriptors, 


it also specifies the demarcation mt PF OuMal tof 
records. 

Each slash terminates a record and setsS up the nex? 
record for processing. The remainder ot an inru! 
record is ignored; the remainder of an outiaut 


record is filled with blanks. Successive slashes 
(///.../) cause successive records to be ignored on 
input and successive blank records to be written on 
output. 
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Output example: 


DIMENSION A(100) ,J(20) 


WRITE (7,8) J,A 
8 FORMAT (1017/1017/50F7.3/5S0F7. 3) 


In this example, the data specified by the list of 
the WRITE statement are output to unit 7 according 
to the specifications of FORMAT statement 8. Four 
records are written as follows: 


Record l Record 2 Record 3 Record 4 
J¢1) J(l1l) A(l) A(51) 
J(2) J(12) A( 2) A(52) 
J(10) 320) A( 50) A( 100) 


Input Example: 


DIMENSION B(10) 


READ (4,17) B 
17 FORMAT(F10.2/F10.2///8F10.2) 


In this example, the two array elements B(1) and 
B(2) receive their values from the first data 
fields of successive records (the remainders of the 
two records are ignored). The third and fourth 
records are ignored and the remaining elements of 
the array are filled from the fifth record. 


8.7.8 FORMAT CONTROL, LIST SPECIFICATIONS AND RECORD 
DEMARCATION 


The following relationships and interactions 
between FORMAT control, input/output lists and 
record demarcation should be noted: 


1. Execution of ae formatted READ or WRITE 
statement initiates FORMAT control. 
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2. The conversion performed on data depends. on 
information jointly provided by the elements in 
the input/output list and field descriptors in 
the FORMAT statement. 


3. If there 1S an input/output list, at least one 
descriptor of types E, F, 0, G, [, Lor A must 
be present in the FORMAT statement. 


4. Each execution of a formatted READ statement 
causes a new record to be input. 


5S. Each item in an input list corresponds to a 
String of characters in the record and to a 
descriptor of the types E, F, G, 1, Lor A tn 
the FORMAT statement. 


6. H and X descriptors communicate information 
directly between the external record and the 
field descriptors without reference to 115St 
items. 


7. On input, whenever a slash iS encountered in 
the FORMAT statement or the FORMAT descriptors 
have been exhausted and re-use of descriptors 
is initiated, processing of the current record 
is terminated and the following occurs: 


a. Any unprocessed characters in the record 
are ignored. 


b. If more input i8S necessary to satisfy 
list requirements, the next record is 
read. 


8. A READ statement is terminated when all items 
in the input list have been satisfied if: 


a. The next FORMAT descriptor is E, F, G, l, 
Lor A. 


b. The FORMAT control has reached the last 
outer right parenthesis of the FORMAT 
statement. 


If the input list has been satisfied, but the 
next FORMAT descriptor is H or X, more data ace 


processed (with the possibility of new records 
being input) until one of the abcve vonditiens 
exists. 
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9. If FORMAT control reaches the last right 
parenthesis of the FORMAT statement but there 
are more list items to be processed, all or 
part of the descriptors are reused. (See item 
3 in the description of Repeat Specifications, 
sub-paragraph 8.7.7.1) 


10. When a Formatted WRITE statement is. executed, 
records are written each time a slash is 
encountered in the FORMAT statement or FORMAT 
control has reached the rightmost right 
parenthesis. The FORMAT control terminates in 
one of the two methods described for READ 
termination in 8 above. Incomplete records are 
filled with blanks to maintain record lengths. 


8.7.9 FORMAT CARRIAGE CONTROL 


Formatted 1/0 to a console or printer uses the 
first character of each record for carriage 
control. The carriage control character 1S never 
printed. The carriage control character determines 
what action will be taken before the line 185 
printed. The options are as follows: 


Control Character Action Taken Before Printing 

0 Skip 2 lines 

l Insert Form Feed 

+ No advance 

Other Skip l line 
Formatted 1/0 to disk does not requir2 the first 
character of each record to be a carriage contro 
character. Records are terminated by a carr’ i je 
return character (X‘'0D'). There are no line-teeds 
(X'OA'S) in the file unless Wwiltten there 


explicitly. 
8.7.10 FORMAT SPECIFICATIONS IN ARKAYS 


The FORMAT reference, f£, of a formatted READ or 
WRITE statement (See 8.1) may be an array name 


instead of a statement label. If such reference is 
made, at the time of execution of the READ WRITE 
Statement the first part of the intormat bon 
contained in the array, taken in natural order, 
must constitute a valid FORMAT specification. Thre 


array may contain non-FORMAT information !ollowiny 
the right parenthesis that ends the FORMAT 
Specification. 
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The FORMAT specification which is to be inserted in 
the array has the same form as defined for a FORMAT 
statement (i.e., it begins with a left parenthesis 
and ends with a right parenthesis). 


The FORMAT specification may be inserted in the 
array by use of a DATA initialization statement, or 
by use of a READ statement together with an Aw 
FORMAT. 


Example: 


Assume the FORMAT specification 
(3F10.3,416) 


Or a Similar 12 character specification is to _ be 
stored into an array. The array must allow a 
minimum of 3 storage units. The FORTRAN coding 
below shows the various methods of establishing 
the FORMAT specification and then referencing the 
array for a formatted READ or WRITE. 


C DECLARE A REAL ARRAY 
DIMENSION A(3), B(3), M(4) 

C INITIALIZE FORMAT WITH DATA STATEMENT 
DATA A/'(3F1','0.3,','416) '/ 


C READ DATA USING FORMAT SPECIFICATIONS 
C IN ARRAY A 
READ(6,A) B, M 


C DECLARE AN INTEGER ARRAY 
DIMENSION IA(4), B(3), M(4) 


C READ FORMAT SPECIFICATIONS 
READ (7,15) IA 
C FORMAT FOR INPUT OF FORMAT SPECIFICATIONS 
15 FORMAT (4A2) 


READ DATA USING PREVIOUSLY INPUT 
FORMAT SPECIFICATION 
READ (7,I1A) B,M 


aM 
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SECTION 9 


FUNCTIONS AND SUBPROGRAMS 


The FORTRAN language provides a means for defining and using 
often needed programming procedures such that the statement 
Or statements of the procedures need appear in a_=e program 
only once but may be referenced and brought into the logical 
execution sequence of the prograin whenever and as often as 
needed. This offers considerable advantages in streamlining 
coding operations in multi-iterative situations, andisa 
valuable extension to the FORTRAN standard. 


The procedures provided are as follows: 


l1. Statement functions. 

2. Library functions. 

3. FUNCTION subprograms. 
4. SUBROUTINE subprograms. 


Each of these procedures has its own unique requirements for 
reference and defining purposes. These requirements are 
discussed in subsequent paragraphs of this section. 
However, certain features are common to the whote group or 
to two or more of the procedures. These common features ar» 
as follows: 


Ll. Each of these procedures 18S referenced by 1tS name 
which, in all cases, 18 one to six alphanumeric 
characters of which the first 18S a letter. 


2. The first three are designated as “functions” and 
are alike in that: 


l. They are always single valued (i.e., they 
return one value to the program unit from which 
they are referenced). 


2. They are referred to by an expression 
containing a function name. 


3. They must be typed by type Specification 
Statements Lif the data type of the 
single-valued result is to be different from 
that indicated by the pre-defined convention. 
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3. FUNCTION subprograms and SUBROUTINE subprograms are 
considered program units. 


In the following descriptions of these procedures, the term 
calling program means the program unit or procedure in which 
a reference to a procedure is made, and the term “called 
program" means the procedure to which a reference is made. 


9.1 THE PROGRAM STATEMENT 


The PROGRAM statement provides a means of 
specifying a name for a main program unit. The 
form of the statement is: 


PROGRAM name 


If present, the PROGRAM statement must appear 
before any other statement in the program unit. 
The name consists of 1-6 alphanumeric characters, 
the first of which is a letter. If no PROGRAM 
statement 1S present in a main program, the 
compiler assigns a name of SMAIN to that program. 


9.2 STATEMENT FUNCTIONS 
Statement functions are defined by a Single 
arithmetic or logical assignment statement vad ove 
relevant only to the program untt wn which they 
appear. The general form of a statement function 


is as follows: 
f(al,a2,...an) =e 


where f£ is the function name, the air are dummy 
arguments and e iS an arithitetic or logical 
expression. 


Rules for ordering, Structure and use of) statement 
functions are as follows: 


l. Statement function definitions, 1f they exist 
in a program unit, must precede all executable 
Statements in the unit and follow all 
specification statements. 
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2. The ai are distinct variable names or array 
elements, but, being dummy variables, they may 
have the same names as variables of the same 
type appearing elsewhere in the program unit. 


3. The expression e is constructed according to 
the rules in SECTION 4 and may contain only 
references to the dummy arguments and 
non-Literal constants, variable and array 
element references, utility and mathematical 
function references and references to 
previously defined statement functions. 


4. The type of any statement function name or 
argument that differs from its pre-defined 
convention type must be defined by a type 
Specification statement. 


5. The relationship between f and e must’ conform 
to the replacement rules in Section 5. 


6. A statement function is called by its name 
followed by a parenthesized list of arguments. 
The expression is evaluated using the arguments 
specified in the call, and the reference is 
replaced by the result. 


7. ‘The ith parameter in every argument list MUST 
agree in type with the ith dummy in the 
statement function. 


The example below shows a statement function and a 
statement function call. 


C STATEMENT FUNCTION DEFINITION 


C 
FUNC1(A,B,C,D) = ((A+B)**C)/D 


C STATEMENT FUNCTION CALL 


C 
Al 2"Al1-FUNC1(X,Y,27,C7) 
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9.3 LIBRARY FUNCTIONS 


Library functions are a group of utility and 
mathematical functions which are "built-in" to the 
FORTRAN syStem. Their names are pre-defined to the 
Processor and automatically typed. The functions 
are listed in Tables 9-1 and 9-2. In the tables, 
arguments are denoted as al,a2,...,an, if more than 
one argument is required; or asa if only one 

igs required. A library function is called when 
its name 1s used in an arithmetic expression. 
Such a reference takes the following form: 


f(al,a2,...an) 


where f is the name of the function and the ai are 
actual arguments. The arguments must agree in 
type, number and order with the specifications 
indicated in Tables 9-1 and 9-2. 


NOTE: 


It should be noted that other FORTRANS 
use the keywords INTRINSIC and EXTERNAL 
to invoke subroutine functions. The 
INTRINSIC keyword is not valid and 
EXTERNAL is used differently in FORTRAN- 
80. If attempting to run a non-FORTRAN-80 
program, ensure that the INTRINSIC 
keyword is not present in the program. 
Any required F-80 functions must be 
invoked by name. If the required 
function does not exist in the F-80 
library, the programmer must write a 
function subprogram, as described later, 
and supply a unique name for that 
function. The EXTERNAL statement in 
FORTRAN-80 can then used to indicate that 
the subprogram name is valid, and the 
FUNCTION statement can then be used to 
invoke the subroutine. 


In addition to the functions listed in 9-1 and 9-2, 
four additional library subprograms are provided to 
enable direct access to the 8080 (or Z80) hardware. 


These are: 


PEEK, POKE, INP, OUT 
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PEEK and INP are Logical functions; POKE and OUT 
are subroutines. PEEK and POKE allow direct access 
to any memory location. PEEK(a) returns the 
contents of the memory location specified by a. 
CALL POKE(al,a2) causes the contents of the memory 
location specified by al to be replaced by the 
contents of a2. INP and OUT allow direct access to 
the I/O ports. INP(a) does an input from port a 
and returns the 8-bit value input. CALL OUT(al,a2) 
Outputs the value of a2 to the port specified by 
al. 


RAN 1S another function in the FORTRAN libdrary. 
RAN 1S a random number generator that 1S compatible 
with Microsoft's BASIC Compiler and BASIC-80 
interpreter. The random number generated 1s a REAL 
decimal number between 0 and 1. The random number 
generator is called by a statement of the following 
form: 
<variable> = RAN(x) 


If x < 0, the first value of a new sequence of 
random numbers is returned. 


If x = 0, the last random number generated 18 
returned again. 


If x > 0, the next random number in the sequence is 
generated. 
Examples using library functions: 

Al = B+FLOAT (I7) 

MAGNI = ABS(KBAR) 

PDIF = DIM(C,D) 

S3 = SIN(T12) 


ROOT = (-B+SQRT(B**%2-4.*A*C) ) / 
1 (2.*A) 
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Function 


Name 


ABS 
IABS 
DABS 


AINT 
INT 
IDINT 


AMOD 
MOD 


AMAX0 
AMAX 1 
MAXQ 
MAX1 
DMAX1 


AMINO 
AMIN] 
MINO 
MIN1 
DMIN1 


FLOAT 


IFIX 


SIGN 
ISIGN 
DSIGN 


DIM 
IDIM 


SNGL 


DBLE 


TABLE 9-1 


Intrinsic Functlons 


Definition 


| a| 


Sign of a times lar- 
gest integer <=!a| 


al(mod a2) 


Max(al,a2,...) 


Min(al,a2,...) 


Conversion from 
Integer to Real 


Conversion from 
Real to Integer 


Sign of a2 times |al| 


al - Min(al,a2) 


Real 
[nteger 
Double 


Real 
Rea lL 
Double 


Real 
Integer 


Integer 
Real 
Integer 
Real 
Double 


Inteyer 
Real 
Int egar 
Real 
Doub Le 


Inteyer 


Real 


real 
Integer 
Double 


Real 
Integer 


Double 


Real 


Page 


Functica 


Real 
integer 
Double 


Real 
Integer 
Integer 


Real 
Integer 


Real 
Real 
integer 
Integer 
Double 


Real 
Real 
Pater jer 
Integer 
Double 


R > a i 


Real 
POATegel 
Nouble 


Real 
Iateger 


Real 
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Number 


Name 


EXP 
DEXP 


ALOG 
DLOG 


ALOG10 
DLOG1O 


SIN 
DSIN 


Cos 
DCcOSs 


TANS 


SQRT 
DSQRT 


ATAN 
DATAN 


ATAN2 
DATAN2 


DMOD 


of 
Arguments 


el ce al oo oo oD oo oo ed 


me £«x2»+W AD 


TABLE 9-2 


Basic External Functions 


Type 
Definition 
ez*ta 
ln (a) 
log10(a) 
sin (a) 


cos (a) 


tanh (a) 


(a) *#* 1/2 
arctan (a) 
arctan (al/a2) 


al(mod a2) 


Argument 


Real 
Double 


Real 
Double 


Real 
Double 


Real 
Double 


Real 
Double 


Real 


Real 
Doub le 


Real 
Double 


Real 
Double 


Double 
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Function 


Real 
Double 


Real 
Double 


Real 
Double 


Real 
Double 


Real 
Double 


Real 


Real 
Doub le 


Real 
Double 


Real 
Double 


Double 
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FUNCTION SUBPROGRAMS 


A program unit which begins with a FUNCTION 
statement is called a FUNCTION subprogram, 


A FUNCTION statement has one of the following 
forms: 


t FUNCTION f£(al,a2,...an) 
or 

FUNCTION f£(al,a2,...an) 
where: 


l. t is either INTEGER, REAL, DOUBLE PRECISION or 
LOGICAL or iS empty as_ shown in the second 
form. 


2. £ is the name of the FUNCTION subprogram. 


3. The al are dummy arguments of which there must 
be at least one and which represent variable 
names, array names or dummy names of SUBROUTINE 
or other FUNCTION subprograms. 


CONSTRUCTION OF FUNCTION SUBPROGRAMS 


Construction of FUNCTION subprograms must comply 
with the following restrictions: 


1. The FUNCTION statement must be _ the First 
statement of the program unit. 


2. Within the FUNCTION subprogram, the FUNCTION 
name must appear at least once on the left side 
of the equality sign of an assignment statement 
or as an item in the input list of an input 
statement. This defines the value of the 
FUNCTION so that it may ~be returned to the 
calling program. 


Additional values may be returned to the 


calling program through assignment of values to 
dummy arguments. 
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Example 
FUNCTION Z7(A,B,C) 


27 = 5.*(A-B) + SQRT(C) 


REDEFINE ARGUMENT 
B=B+Z7 


a) 


END 


3. The names in the dummy argument list may not appear 
Ln EQUIVALENCE, COMMON or DATA statements in the 
FUNCTION subprogram. 


4. If a dummy argument is an array name, then an array 
declarator must appear in the subprogram with 
dimensioning information consistant with that in 
the calling program, 


5. A FUNCTION Subprogram may contain any defined 
FORTRAN statements other than BLOCK TATA 
Statements, SUBROUTINE Statements, anotnrer FUNUTI ON 
Statement or any Statement which references e21tnerc 
the FUNCTION being defined or another subproyram 
that references the FUNCTION being defined. 


6. The logical termination of a FUNCTION Subprogram is 
a RETURN statement and there must be at least one 
of them. 


7. A FUNCTION Subprogram must physically terminat? 
with an END statement. 
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Example: 


FUNCTION SUM (BARY,I,J) 
DIMENSION BARY(10, 20) 
SUM = 0.0 
DO 8 K=1,I 
DO8 M=1,J 

8 SUM = SUM + BARY(K,M) 
RETURN 
END 


9.6 REFERENCING A FUNCTION SUBPROGRAM 


FUNCTION subprograms are _ called whenever the 
FUNCTION name, accompanied by an argument list, is 
used as an operand in an expression. Such 
references take the following form: 


f(al,a2,...,an) 


where £ is a FUNCTION name and the ai are actual 
arguments. Parentheses must be present in the form 
shown. 


The arguments al MUST agree in type, order and 
number with the dummy arguments in the FUNCTION 
statement of the called FUNCTION subprogram. There 
igs no type conversion of arguments. There must be 
at least one argument. Arguments may be any of the 
following: 


l1. <A variable name. 

2. An array element name. 

3. An array name. 

4. An expression. 

S. A SUBROUTINE or FUNCTION subprogram name. 

6. A Hollerith or Literal constant. 

If an ai is a subprogram name, that name must have 
previously been distinguished from ordinary 
variables by appearing in an EXTERNAL statement and 
the corresponding dummy arguments in the called 


FUNCTION subprograms must be used in subprogram 
references. 
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If ai is a Hollerith or Literal constant, the 
corresponding dummy variable should encompass 
enough storage units to correspond exactly to the 
amount of storage needed by the constant. 


When a FUNCTION subprogram is called, program 
control goes to the first executable statement 
following the FUNCTION statement. 


The following examples show references to FUNCTION 
subprograms. 


Z10 = FT1+Z7(0,T3,RHO) 


DIMENSION DAT(5,5) 


Sl = TOT1 + SUM(DAT,S,5) 


SUBROUTINE SUBPROGRAMS 

A program unit which begins with a SUBROUTINE 
Statement is called a SUBROUTINE subprogram. The 
SUBROUTINE statement has one of the following 
forms: 

SUBROUTINE s (al,a2,...,an) 

or 

SUBROUTINE s 

where s is the name of the SUBROUTINE subprogram 
and each ai is a dummy argument which represents a 


variable or array name or another SUBROUTINE or 
FUNCTION name. 


CONSTRUCTION OF SUBROUTINE SUBPROGRAMS 


1. The SUBROUTINE statement must be the first 
statement of the subprogram. 


2. The SUBROUTINE subprogram name must not appear 


in any statement other than the initial 
SUBROUTINE statement. 
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3. The dummy argument names must not appear in 
EQUIVALENCE, COMMON or DATA statements in the 
subprogran. 


4. If a dummy argument is an array name then an 
array declarator must appear in the subprogram 
with dimensioning information consistant with 
that in the calling program. 


5. If any of the dummy arguments represent values 
that are to be determined by the SUBROUTINE 
subprogram and returned to the calling program, 
these dummy arguments must appear within the 
subprogram on the left side of the equality 
sign in a replacement statement, in the input 
list of an input statement or as a parameter 
within a subprogram reference. 


6. A SUBROUTINE may contain any FORTRAN statements 
other than BLOCK DATA statements, FUNCTION 
statements, another SUBROUTINE statement, a \ 
PROGRAM statement or any statement which 
references the SUBROUTINE subprogram being 
defined or another subprogram which references 
the SUBROUTINE subprogram being defined. 


7. A SUBROUTINE subprogram may contain any number 
of RETURN statements. It must have at least 
one. 


8. The RETURN statement (s) is the logical 
termination point of the subprogram. 


9. The physical termination of a SUB ROUTINE 
subprogram is an END statement. 


10. If an actual argument transmitted to a 
SUBROUTINE subprogram by the calling program is 
the name of a SUB ROUTINE or FUNCTION 
subprogram, the corresponding dummy argument 
must be used in the called SUB ROUTINE 
subprogram as a subprogram reference. 
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C SUBROUTINE TO COUNT POSITIVE ELEMENTS 
C IN AN ARRAY 
SUBROUTINE COUNT P(ARRY,I,CNT) 
NIMENSION ARRY(7) 
CNT = 0 
DO 9 J=1,I 
IF(ARRY(J))9,5,5 
9 CONTINUE 
RETURN 
5 CNT = CNT+1.0 
GO TO 9 
ENT) 
9.9 REFERENCING A SUBROUTINE S\JBPROGRAM 
A SUBROUTINE subprogram may be called by using a 
CALL Statement. A CALL Statement has one of the 


following forms: 
CALL s(al,a2,...,an) 
Or 


CALL s 


where s 1S a SUBROUTINE subprogram name and the ai 


are the actual arguments to be used 


subprogram. The ai must agree in type, order 


the 
and 


number with the corresponding dummy arguments in 


the subprogram-defining SUBROUTINE statement. 


The arguments in a CALL statement must comply 


the following rules: 


1. FUNCTION and SUBROUTINE names appearing 


with 


the 


argument list must have previously appeared in 


an EXTERNAL statement. 


2. If the called SUBROUTINE subprogram contains A 


variable array declarator, then the 


statement must contain the actual name 


CALL 
2ne 


array and the actual dimension specifications 


as arguments. 


3. If an item in the SUBROUTINE subprogram 


dummy 


argument list is an array, the corresponding 


item in the CALL statement argument list 


be an array. 
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When a SUBROUTINE subprogram is called, program 
control goes to the first executable statement 
following the SUBROUTINE statement. 


Example: 
DIMENSION DATA(10) 


THE STATEMENT BELOW CALLS THE 


C 
C SUBROUTINE IN THE PREVIOUS PARAGRAPH 
C 
CALL COUNTP(DATA,10,CPOS) 
9.10 RETURN FROM FUNCTION AND SUBROUTINE SUBPROGRAMS 


The logical termination of a FUNCTION or SUBROUTINE 
subprogram is a RETURN statement which transfers 
control back to the calling program. The general 
form of the RETURN statement is simply the word 


RETURN 


The following rules govern the use of the RETURN 
Statement: 


lL. There must be at least one RETURN statement in 
each SUBROUTINE or FUNCTION subprogram, 


2. RETURN from a FUNCTION subprogram is to. the 
instruction sequence of the calling brogran 
following the FUNCTION reference. 


3. RETURN from a SUBROUTINE Subprogram is to th: 


next executable Statement in the calling 
program which would logically follow the CALL 
statement. 


4. Upon return from a FUNCTION Subprogram the 
single-valued result of the subprogram is 
available to the evaluation of the expression 
from which the FUNCTION call was made. 


5. Upon return from a SUBROUTINE subprogram the 


values assigned to the arguments in the 
SUBROUTINE are available for use by the calling 
program. 
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9.11 


Example: 
Calling Program Unit 


CALL SUBR(Z29,B7,R1) 


Called Program Unit 


SUBROUTINE SUBR(A,B,C) 
READ(3,7) B 
A = B**Cc 
RETURN 
7 FORMAT (F9. 2) 
END 


In this example, 29 and B? are made available to 
the calling program when the RETURN occurs. 


PROCESSING ARRAYS IN SUBPROGRAMS 


If a calling program passes an array name to a 
subprogram, the subprogram must contain the 
dimension information pertinent to the array. A 
subprogram must contain array declarators if any of 
its dummy arguments represent arrayS or array 
elements. 


For example, a FUNCTION subprogram designed to 


compute the average of the elements of any one 
dimension array might be the folowing: 
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Calling Program Unit 


DIMENSION 21(50) ,Z22(25) 
Al = AVG(Z1,50) 


A2 = Al-AVG(Z2,25) 


Called Program Unit 


FUNCTION AVG(ARG,I) 
DIMENSION ARG(50) 
SUM = 0.0 
DO 20 J=l1,I 

20 SUM = SUM + ARG(J) 
AVG = SUM/FLOAT(TI) 
RETURN 
END 


Note that actual arrays to be processed by 
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the 


FUNCTION subprogram are dimensioned in the calling 


program and the array names and their 


dimensions are transmitted to the 
subprogram by the PUNCTION subprogram 


actual 
FUNCTION 
reference. 


The FUNCTION subprogram itself contains a dummy 


array and specifies an array declarator. 


Dimensioning information may also be passed to 


the 


subprogram in the paramater list. For example: 


184 


FORTRAN-80 Reference Manual Page 9-17 


Calling Program Unit 


DIMENSION A(3,4,5) 


CALL SUBR(A,3,4,5) 


END 
Called Program Unit 


SUBROUTINE SUBR(X,I,J,K) 
DIMENSION X(I,J,K) 


RETURN 
ENO 


It 18 valid to use variable dimensions onl when 
the array name and all of the variable dimensions 
are dummy arguments. The variable dimensions must 
be type Integer. It 1S invalid to change the 
values of any of the variable dimensions within the 
called program. 


9.12 BLOCK DATA SUBPROGRAMS 


A BLOCK DATA Subprogram has as 1ts only purpose the 
initialization of data in a cCOMMON block during 
loading of a FORTRAN object program. BLOCK DATA 
Subprograms begin with a BLOCK DATA statement of 
the following form: 


BLOCK DATA [subprogram-name } 


and end with an END statement. Such subprograms 
may contain only Type, EQUIVALENCE, DATA, COMMON 
and DIMENSION statements and are subject to the 
following considerations: 


l. If any element in a COMMON block is to _ be 
initialized, all elements of the block must be 
listed in the COMMON statement even though thy 
might not all be initialized. 
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2. Initialization of data in more than one COMMON 
block may be accomplished in one BLOCK DATA 
subprogram. 


3. There may be more than one B LOCK DATA 
subprogram loaded at any given time. 


4. Any particular COMMON block item should only be 
initialized by one program unit. 


Example: 


BLOCK DATA 

LOGICAL Al 
COMMON.“BETA/B( 3,3) GAM, C(4) 
COMMON/ ALPHA/A1,F,E,D 

DATA B/1.1,2.5,3.8,3%4.96, 
12*0.52,1.1/,C/1.2E0, 3*4.0/ 
DATA Al/.TRUE./,E/-5.6/ 


9.13 PROGRAM CHAINING 
Programs may be loaded and executed (CHAINed) by a 
FORTRAN program through the CALL FCHAIN facility. 


The general syntax 138: 


CALL FCHAIN (‘'filename') 


where filename ls a valid Operating- 
system-dependent file specification of a machine 
executable file. The exact syntax varies under 
different Operating systems. Refer to che 


FORTRAN-80 User's Manual, Section 5. 
RULES: 


l. ‘filename’ must be valid according to the 
Operating system's rules. 


2. The program CHAINed must be a "MAIN" program. 
That is, one having an ENTRY Point. FORTRAN, 
COBOL, and assembly language subroutines do not 
contain a “MAIN” entry point. 


3. Parameters may not be _ passed to CHAINed 
programs. 


4. Illegal filename, Illegal drive specification, 


File not found, Out of memory, and Disk read 
errors will result ina fatal **I0O** Error. 
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APPENDIX A 


Language Extensions and Restrictions 


The FORTRAN-80 language includes the following extensions to 
ANSI Standard FORTRAN (X3.9-1966). 


Ll. If c is used ina ‘STOP c' or 'PAUSE c' statement, 
Cc may be any six ASCII characters. 


2. Error and End-of-File branches may be specified in 
READ and WRITE statements using the ERR= and END= 
options. 


3. The standard subprograms PEEK, FOKE, INP, and OUT 
have been added to the FORTRAN library. 


4. Statement functions may use subscripted variables. 


5. Hexadecimal constants may be used wherever Integer 
constants are normally allowed. 


6. The literal form of Hollerith data (character 
string between apostrophe characters) is permitted 
in place of the standard nH form. 


7. Holleriths and Literals are allowed in expressions 
in place of Integer constants. 


8. There is no restriction to the number of 
continuation lines. 


9. Mixed mode expressions and asSignments are allowed, 
and conversions are done automatically. 


10. Assigned GO TO and ASSIGN statements are 
implemented to allow conditional branching to 
required statement numbers, designated by an 
assigned integer variable acting as a label. 


ll. The COMMON statement, as implemented, provides for 
both defining a common block and storing values. No 
COMMON block statement is required. 


12. When using type statements, the number of required 
storage bytes can be specified as required (i.e. 
INTEGER*1, INTEGER*2, INTEGER*4, REAL*4, REAL*8, 
etc.) 
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13. An IMPLICIT statement is included to set type 
ranges as required (selectable implicit 
specification of variable and array names). 


14. Replacement statements are more straightforward 
and multi-purpose than most other compilers. 


15. Functions may be invoked from the FORTRAN library 
by name rather than the FUNCTION statement. Custom 
functions can be generated as desired, the EXTERNAL 
statement can be used to instruct the compiler of 
their existence, and the FUNCTION statement can be 
used to invoke them on a individual program unit 
basis. 


16. An INCLUDE statement is implemented to allow the 
programmer to insert an independent file of source 
code into a current program unit as required during 
compile. 


17. ENCODE and DECODE statements have been implemented 
to allow formatted transfer of data from one memory 
location to another as required during execution of 
a program unit. 


18. A CALL OPEN statement is implemented to allow the 
programmer to open a disk file without using READ 
or WRITE statements. An ENDFILE statement can be 
used to close the file, and a REWIND statement can 
be used if the programmer wishes to close and then 
reopen the file. 


19. DO loop conventions and testing for out of range 
index values are implemented as in FORTRAN-77 (more 
tolerant than 1966 spec.). This means that the loop 
is tested at the end of each iteration. Therefore, 
one extra loop iteration will be performed as 
compared with the FORTRAN-66 method. 


20. A PROGRAM statement is implemented to allow the 
programmer to name main routines as required. A 
default name $MAIN is applied by the system if no 
name is specified using PROGRAM. 
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FORTRAN-80 places the following restrictions upon Standard 
FORTRAN. 


1. The COMPLEX data type is not implemented. 


2. The specification statements must appear inthe 
following order: 


Ll. PROGRAM, SUBROUTINE, FUNCTION, BLOCK DATA 
2. Type, EXTERNAL, DIMENSION 

3. COMMON 

4. EQUIVALENCE 

5. DATA 

6. Statement Functions 


3. A different amount of computer memory 1s) allocated 
for each of the data types: [nteyer, Real, DMoubhi- 
Precision, Logical. 


4. The equal sign of a replacement statement and the 
first comma of a DO statement must appear on the 
initial statement line. 


5. In Input/Output list specifications, sublists 
enclosed in parentheses are not allowed. 


6. No CALL EXIT statement is provided, since FORTRAN- 
80 is not used ina batch environment. However, it 
1s provided as an entry point in the Fortran 
library (FORELIB.REL). 


7. No IF THEN, ELSE, ELSE [F, or END [F statements ar- 
implemented. Branching and looping must be 
performed using the arithmetic, logical, and 
relational IF statements, appropriate GO TO 


Statements, and DO statements. Refer to SECTION 7 
for details. 


8. No INTRINSIC statement 1s implemented because 
FORTRAN library functions are invokec by name, and 
custom functions are invoked by using the FUNCTION 
Statement. 


9. The EXTERNAL statement has a different meaning. It 
indicates to the compiler that a valid name exists 
external to the current program unit which denotes 
a custom function subprogram (user-written). 
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10. No free-format READ or WRITE is implemented, onty 
formatted and unformatted are used in FORTRAN-80. 


Descriptions of these language extensions and restrictions 
are included at the appropriate points in the text of this 
document. Refer to the Index and Table of Contents for 
specific topics of interest. 
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APPENDIX B 


I/O Interface 


Input/Output operations are table-dispatched to the driver 
routine for the proper Logical Unit Number. S$LUNTB is the 
dispatch table. It contains one 2-byte driver address _ for 
each possible LUN. It also has a one-byte entry at the 
beginning, which contains the maximum LUN plus one. 


The initial run-time package provides for 10 LUN's (1 - 10). 
Units 1, 3, 4, and 5 are preassigned to the console (TTY). 
Unit 2 is preassigned to the Line Printer. Units 6-10 are 
preassigned to Disk Piles (see User's Manual, Section 5). 


Any of these may be redefined by the user simply by changing 
the appropriate entries in $LUNTB. The runtime system uses 
LUN 3 for errors and other user communication. Therefore, 
LUN 3 should correspond to the operator console. The 
initial structure of S$LUNTB is shown in the listings 
following this appendix. 


It is also possible to add LUNs to $LUNTB. If you do this, 
change the MAXLUN+1 byte at the label SLUNTB, and make sure 
you also change the value of MAXLUN in the DSKDRV.MAC 
module. 


The device drivers also contain local dispatch tables. Note 
that S$LUNTB contains one address for each device, yet there 
are really seven possible operations per device: 


1) Formatted Read 

2) Formatted Write 
3) Unformatted Read 
4) Unformatted Write 


5) Rewind 
6) Backspace 
7) Endfile 
Each device driver contains up to seven routines. The 


Starting addresses of each of these seven routines are 
placed at the beginning of the driver, in the exact order 
listed above. The entry in SLUNTB then points to this local 
table, and the runtime system indexes into it to get the 
address of the appropriate routine to handle the requested 
I/O operation. 
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The following conventions apply to the individual I/0 


routines: 


l. Location SBF contains the data buffer address _ for 


READS and WRITEs., 


2. For a WRITE, the number of bytes to write 


location SBL. 


1S in 


3. For a READ, the number of bytes read should be 


returned in SBL. 


4. All I/O operations set the condition codes 


before 


exit to indicate an error condition, end-of-file 


condition, or normal return: 


a) CYsl, Z=don't care - I/O error 
b) CY=#0, 220 - end-of-file encountered 
c) CYz0, 221 - normal return 


The runtime system checks the condition codes after 
calling the driver. If they indicate a non-normal 
condition, control is passed to the label specified 
by “ERR#=* or “END#" or, if no label is specified, a 
fatal error results. 


SIOERR is a global routine which prints an “ILLEGAL 
I/O OPERATION" message (non-fatal). This routine 
may be used if there are some operations not 
allowed on a particular device (i.e. Unformatted 
I/O on a TTY). 


NOTE 


The I/O buffer has ae fixed 
maximum length of 132 bytes. 
If a driver allows an input 
operation to write past the 
end of the buffer, essential 
runtime variables may be 
affected. The consequences 
are unpredictable. 


The listings following this appendix contain an example 
driver for a TTY. REWIND, BACKSPACE, and ENDFILE are 
implemented as No-Ops and Unformatted I/O as an error. This 


is the TTY driver provided with the runtime package. 
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APPENDIX C 


Subprogram Linkages 


This appendix defines a normal subprogram call as _ generated 
by the FORTRAN compiler. It is included to facilitate 
linkages between FORTRAN programs and those written in other 
languages, such as 8080 Assembly. 


A subprogram reference with no parameters generates a simple 

"CALL" instruction. The corresponding subprogram should 
return via a simple “RET.” (CALL and RET are 80]280 opcodes - 
see the assembly manual or 8080 reference manual for 
explanations.) 


A subprogram reference with parameters results in a somewhat 
more complex calling sequence. Parameters are always passed 
by c2ference (i.e., the thing passed is actually the address 
of the low byte of the actual argument). Therefore, 
parameters always occupy two bytes each, regardless of type. 


The method of passing the parameters depends upon the number 
of parameters to pass: 


l. If the number of parameters is less than or equal 
to 3, they are passed in the registers. Parameter 
1 will be in HL, 2 in DE (if present), and 3 in BC 
(if present). 


2. If the number of parameters is greater than 3, they 
are passed as follows: 
l. Parameter 1 in HL. 
2. Parameter 2 in DE. 
3. Parameters 3 through n in a contiguous data 
block. BC will point to the low byte of this 


data block (i.e., to the low byte of parameter 
3). 
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Note that, with this scheme, the subprogram must know how 
many parameters to expect in order to find them. 
Conversely, the calling program is responsible for passing 
the correct number of parameters. Neither the compiler nor 
the runtime system checks for the correct number of 


If the subprogram expects more than 3 parameters, and needs 
to transfer them to a local data area, there is a system 
subroutine which will perform this transfer. This argument 
transfer routine is named SAT, and 1s called with HL 
pointing to the local data area, BC pointing to the’ third 


parameter, and A containing the number of arguments to 
transfer (1.e., the total number of arguments minus 2). The 
subprogram 1s responsible for saving the first two 


parameters before calling SAT. For example, if a subprogram 
expects 5 parameters, it should look like: 


SUBR: SHLD Pl ;SAVE PARAMETER 1 
XCHG 
SHLD P2 ; SAVE PARAMETER 2 
MVI A,3 ;NO. OF PARAMETERS LEFT 
LX I H,P3 ; POINTER TO LOCAL AREA 
CALL SAT ;TRANSFER THE OTHER 3 PARAMETERS 


(Body of subprogram] 


RET ;RETURN TO CALLER 
Pl: DS 2 ; SPACE FOR PARAMETER | 
P2: DS 2 ;SPACE FOR PARAMETER 2 
P3: DS 6 ; SPACE FOR PARAMETERS 3-5 


When accessing parameters in a subprogram, don't forget that 
they are pointers to the actual arguments passed. 


NOTE 


It is entirely up to the 
programmer to see to it that 
the arguments in the _ calling 
program match in number, type, 
and length with the parameters 
expected by the subprogram. 
This applies to FORTRAN 
subprograms, as well as those 
written in assembly language. 
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FORTRAN Functions (Section 9) return their values in 
registers Or memory depending upon the type. Logical 
cesults are returned in (A), Integers in (HL), Reais in 
memory at $AC, Double Precision in memory at SDAC. SAC and 
2OAC are the addresses of the low bytes of the mantissas. 
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APPENDIX D 


ASCII CHARACTER CODES 


DECIMAL CHAR. DECIMAL CHAR. DECIMAL CHAR. 
000 NUL 043 + 086 V 
001 SOH 044 ; 087 W 
002 STX 045 - 088 X 
003 ETX 0 46 . 089 Y 
004 EOT 047 / 090 Z 
005 ENQ 048 0 091 [ 
006 ACK 049 1 092 \ 
007 BEL 050 2 093 ) 
008 BS 051 3 094 * 
009 HT 052 4 095 _ 
010 LP 053 5 096 . 
011 VT 054 6 097 a 
012 FP 055 7 098 b 
013 CR 056 8 099 c 
014 SO 057 9 100 a 
015 SI 058 : 101 e 
016 DLE 059 : 102 f 
017 DCcl 060 < 103 g 
018 DC2 061 = 104 h 
019 DC3 062 > 105 1 
020 DC4 063 ? 106 j 
021 NAK 064 @ 107 k 
022 SYN 065 A 108 l 
023 ETB 066 B 109 m 
024 CAN 067 Cc 110 n 
025 EM 068 D lll O 
026 SUB 069 E 1l2 p 
027 ESCAPE 070 F 113 q 
028° FS 071 G 114 r 
029 GS 072 H 115 S 
030 RS 073 I 116 t 
031 Us 074 J 117 u 
032 SPACE 075 K 118 Vv 
033 ! 076 L 119 Ww 
034 . 077 M 120 x 
035 € 078 N 121 y 
036 $ 079 fe) 122 z 
037 2 080 P 123 { 
038 & 081 Q 124 | 
039 ' 082 R 125 } 
040 ( 083 S 126 ~ 
041 ) 084 T 127 DEL 
042 * 085 U 


LF=Line Feed FF=Form Feed CR=Carriage Return DEL=Rubout 
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APPENDIX E 


Referencing FORTRAN-80 Library Subroutines 


The FORTRAN-80 library contains a number of subroutines that 
may be referenced by the user from FORTRAN or assembly 
programs. 


Ll. Referencing Arithmetic Routines 


In the following descriptions, $AC refers to the 
floating accumulator; $AC is the address of the 
low byte of the mantissa. $AC+3 is the address of 
the exponent. S$DAC refers to the DOUBLE PRECISION 
accumulator; $DAC 1s the address of the low byte 
of the mantissa. $SDAC+7? is the address of the 
DOUBLE PRECISION exponent. 


All arithmetic routines (addition, subtraction, 
multiplication, division, exponentiation) adhere to 
the following calling conventions. 


l1. Argument 1 is passed in the registers: 
Integer in [HL] 
Real in $AC 
Double in $DAC 


2. Argument 2 is passed either in registers, or in 
memory depending upon the type: 


a. Integers are passed in [HL], or [DE] if 
(HL) contains Argument 1. 


b. Real and Double Precision values are 
passed in memory pointed to by [HL]. 
({HL) points to the low byte of the 
mantissa.) 
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The following arithmetic routines are contained 
the Library: 


Function 


Addition 


Division 


Exponentiation 


Multiplication 


Name 


SAY 
SAl 
SAA 
SAE 
$AB 
$AQ 
SAV 
SAR 
SAU 


Argument 1 Type 


Integer *4 
Integer*4 
Real 

Real 

Real 
Double 
Double 
Double 
Double 


Integer 
Integer *4 
Integer*4 
Real 

Real 

Real 
Double 
Double 
Double 
Double 


Integer 
Integer *4 
Integer*4 
Real 

Real 

Real 
Double 


‘Double 


Double 
Double 


Integer 
Integer *4 
Integer*4 
Real 

Real 

Real 
Double 
Double 
Double 
Double 
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Argument 2 Type 


Integer 
Integer*4 
Integer 
Integer*4 
Real 
Integer 
Integer *4 
Real 
Double 


Integer 
Integer 
Integer*4 
Integer 
Integer*4 
Real 
Integer 
Integer *4 
Real 
Double 


Integer 
Integer 
Integer*4 
Integer 
Integer*4 
Real 
Integer 
Integer *4 
Real 
Double 


Integer 
Integer 
Integer*4 
Integer 
Integer*4 
Real 
Integer 
Integer *4 
Real 
Double 
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Subt raction SSY Integer *4 Integer 
$sl Integer*4 Integer*4 
SSA Real Integer 
SSE Real Integer*4 
$SB Real Real 
3SQ Double Integer 
$SvV Double Integer*4 
$SR Double Real 
$SU Double Double 


Additional Library routines are provided for 
converting between value types. Arguments are 
always passed to and returned by these conversion 
routines in the appropriate registers: 

Logical in [A] 

Integer in [HL] 

Real in SAC 


Double in $DAC 


Name Punction 

$CD Integer to Integer*4 
SCA Integer to Real 

$cc Integer to Double 
$C4 Integer*4 to Integer 
$cs Integer*4 to Real 
$C6 Integer*4 to Logical 
$C7 Integer*4 to Double 
$CH Real to Integer 

SCL Real to Integer*4 
SCJ Real to Logical 

$CK Real to Double 

$CX Double to Integer 
$co Double to Integer*4 
$CY Oouble to Real 

$C2 Double to Logical 


202 


FORTRAN-80 Reference Manual Page E-4 
Referencing Intrinsic Functions 
Intrinsic Functions are passed their parameters in 
H,L and 0O,€E. If there are three arguments, B,C 
contains the third parameter. If there are more 
than three arguments, B,C contains a pointer to a 
block in Memory that holds the remaining 
parameters, Each of these parameters 1S a pointer 
to an argument. 
For a MIN or MAX function, the number of arguments 
is passed in A. 
NOTE 

None of the functions (except INP and OUT) 

may take a Byte variable as an argument. 

Byte variables must first be converted to 

the type expected by the function. 

Otherwise, results will be unpredictable. 
Formatted READ and WRITE Routines 
A READ or WRITE statement calls one of tne 
following routines: 
S$W2 (2 parameters) Initialize for an 1/0 transfer 
SW5 (5 parameters) to a device (wRITE) 
S$R2 (2 parameters) Initialize for an 1/O transter 
SRS (5 parameters) from a device (READ) 


These routines adhere to the following calling 
conventions: 


1. H,L points to the LUN 


2. D,E points to the beginning of the FORMAT 
statement 


3. If the routine has five parameters, then B,C 
points to a block of three parameters: 


a. the address for an ERR branch 
b. the address for an EOF branch 


c. the address for a REC= value 
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The routines that transfer values into the I/0 
buffer are: 
$10 transfers integers 
$Il transfers real numbers 
sI2 transfers logicals 
$13 transfers double precision numbers 
$14 transfers extended integers (4 bytes) 
Transfer routines adhere to the following calling 
conventions: 
Ll. H,L points to a location that contains the 

number of dimensions for the variables in tne 


list 
2. D,E points to the first value to be transferred 
3. B,C points to the second value to be 


transferred if there are exactly two values to 
be transferred by this call. If there are more 


than two values, B,C points to a block ‘nat 
contains pointers to tne second through nth 
values. 

4. Register A contains the number of parameters 


(including H,L) generated by this call. 


The routine SND terminates the I/O process. 


Example: 
EX TRN SW2,S10,SND 
ENTRY TEST 
TEST: LXI H, LUN 
LXI D,FORMAT 
CALL $W2 
LX I H,DIMENS 
LXI D,NUMBER 
MVI A,2 
CALL $Io 
CALL SND 
RET 
LUN: DW 1 
FORMAT: DB ‘(11H RESULT IS#,15)' 
DIMENS: DW 1 
NUMBER: DW 9999 
END TEST 
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Loading and Storing Floating Accumulator 


In the following definitions, SAC refers to the 


floating accumulator and $DAC refers to the DOUBLE 
PRECISION accumulator. 


To Load Floating Accumulator: 
(H,L points to value to be loaded.) 


Name Function 
stl Loads into SAC, 4 bytes 
$L3 Loads into S$DAC, 8 bytes 


To Store Floating Accumulator: 
(H,L points to memory where value is to be stor-d) 


Name Function 
$Tl Stores 4 bytes from $AC 
ST 3 Stores 8 bytes from SDAC 
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Arithmetic Expression 
Arithmetic IF 
Array 


Array Declarator 
Array Element : 
ASCII Character Codes 
ASSIGN 

Assigned GOTO 


BACKSPACE ...... 
BLOCK DATA . 
BYTE. 


CALL 

Characteristic 
Comment Line oe 
COMMON ...... . 
Computed GOTO ... . 
Constant ...... 
Continuation ... . 
CONTINUE ..... . 
Control Statements. 


DATA . 

Data Representation 
Data Storage 

DECODE 

DIMENSION 

Disk Files 

DO. 

DO Implied List 
Double precision 
Dummy 


ENCODE oe 

END . ..... 

END Line... . 
ENDFILE ...... . 
EQUIVALENCE .... . 
Executable .... . 
Expression 2 
Extended Integer. oo 
Extended Range .. . 
EXTERNAL ..... .- 
External Functions 
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Information in this document is subject to change without 
notice and does not represent a commitment on the part of 
Microsoft, Inc. The software described in this document is 
Curnished under a license agr2ement or non-disclosure 
agreement. The software may be used or copied only in 
accordance with the terms of the agreement. It is against 
the law to copy the Utility Software Package on cassette 
taoe, disk, or any other medium for any purpose other than 
ourchaser's personal use. 


LIMITED WARRANTY 
MICROSOFT, Inc. shall have no liability Or 
responsibility to purchaser or any other person or 
entity with respect to any liability, loss orf 
damage caused or alleged to be caused directly or 
indirectly by this product, including but not 
limited to any interruption of service, loss of 
business or anticipatory profits or consequential 
damages resulting from the use or operation of 
this product. This product will be exchanged 
within twelve months from date of purchase 1 £ 
defective in manufactur?, labeling or vackagind, 
but except for such replacement the sale or 
Subsequent uSe of this program is without warrant. 
or liability. 


THE ABOVE Is A LIMITED WARRANTY AND [THE ONLY 


—_ eee ee ee 


wy ANY . 
BY = MICROSOFT, INC. ANY AND ALL WARRANTIES VO! 
MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE 47) 
EXPRESSLY EXCLUDED. 


CP/M 1S a registered trademark of Digital Researe 
The Uttlity Software Package, MACRO-80, LINK-8), CXER-7), 
and LIB-80 are trademarks of Microsoft, Inc. 
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INTRODUCTION 
Welcome to the world of Utility Software Package 
programming. During the course of this manual, we wil! 
learn what the Utility Software Package 1S, why you use it, 


and how to uSe it. 


L.l CONTENTS OF THE UTILITY SOFTWARE PACKAGE PACKAGE 
One diskette with the following files: 


M80.COM - MACRO-80 Macro Assembler program 
L80.COM - LINK-80 Linking Loader program 
CREF80.COM - Cross-Reference Facility 
LIB80.COM - Library Manager program 


One Manual 


The Utility Software Package Reference Manual 


IMPORTANT 


Always make backup copies of 
your diskettes before using 
them. 
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1.2 SYSTEM REQUIREMENTS 


MACRO-80 requires about 19K of memory, plus about 4K for 


buffers. LINK-80 requires about 14K of memory. CREF-80 
requires about 6K of memory. LIB-80 requires about 5K of 
memory. The operating system usually requires about 6K 


bytes of memory. SO a minimum system requirement for the 
Utility Software Package is 29K bytes of memory. While it 
is possible to run Utility Software Package programs with 
only one disk drive, we recommend strongly that you have two 
disk drives available. 


1.3 WHOM IS THE UTILITY SOFTWARE PACKAGE FOR? 


The Utility Software Package is a complete assembly language 
development system with powerful features that support 
advanced assembly language programming skills. This manual 
describes the Utility Software Package thoroughly, but the 
descriptions assume that the reader understands assembly 
language programming and has experience with an assembler. 


If you have never programmed in assembly language, we 
suggest that you galn some experience on ae Simpler 
assembler. 


300ksS on Assembly Language Proyrammning 


we can also recommend the following books for basic 
instruction in assemoly language programming: 


Leventhal, Lance A, 8080A/8085 Assembly Language 
Programming. Berkeley: Osborne/McGraw-Hill, i978. 
Leventhal, Lance A. z80 Assembly 


boda Language Programming. 
Berkeley: Osborne/McGraw-Hill, 1979. 


Zaks, Rodnay. P 


—_———! 


cro 
Berkeley: Sybex, 1980. 


gramming the Z80. Second edition, 
x 
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1.4 A WORD ABOUT THIS MANUAL 


Organization 


Section l gives introductory, background, and overview 
information about the Utility Software Package. Sections 
2-7 describe the use and operation of the Utility Software 
Package programs, The manual concludes with several 
appendices which contain some helpful reference information. 


Syntax Notation 


The following notation is used throughout this manual in 
descriptions of command and statement syntax: 


( ] Square brackets indicate that the enclosed entry is 
optional. 


< > Angle brackets indicate user entered data. When 
the angle brackets enclose lower case text, the 
user must type in an entry defined by the text; 
for example, <filename>. When the angle brackets 
enclose upper case text, the user must press_ the 
key named by the text; for example, <RETURN>. 


{ } Braces indicate that the user has a choice between 
two or more entries. At least one of the entries 
enclosed in braces must be chosen unless’ the 
entries are also enclosed in square brackets. 


Ellipses indicate that an entry may be repeated as 
many times as needed or desired. 


CAPS Capital letters indicate portions of statements or 
commands that must be entered, exactly as shown. 


All other punctuation, such as commas, colons, slash marks, 
and equal signs, must be entered exactly as shown. 
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1.5 OVERVIEW 


The Utility Software Package is an assembly language 
programming system that parallels the design and programming 
oower of assemblers and related software on big computers. 
Consequently, the design and use of the Utility Software 
Package involves traits and methods that may be new to you. 
As explained earlier, we assume that you have. some 
experience in assembly language programming. Your knowledge 
of when and why to use particular operation codes and 
pseudo-operations is the base on which you can build your 
knowledge of the Utility Software Package. If you obtained 
this documentation with high level language software, the 
LINK-80 linking loader details are discussed in the relevant 
user‘s manual for the high level language. However, this 
manual still provides general information about LINK-80 
celevant to using the MACRO-80 assembly language for program 
development. 


One word of caution: some terms used in this manual may be 
familiar to you from other. sources. Be sure to notice 
especially how familiar terms are used in the Utility 
Software Package so that you are not confused or misled. 


The Utility Software Package programming relies on two 
important software programs -- an assembler and a linking 
loader. To develop an assembly language program that runs 
on your computer, you must use both the assembler and the 
linking loader. The whole process 1s diagrammed on the 
facing page. The numbers on the diagram correspond to the 
numbers in the explanations below. 


l. You create an assembly language source program uSing 
some editor. 


2. You assemble your source program using the MACRO-80 
macro assembler. The result is ae file that contains 
intermediate object code. This intermediate code is closer 
to machine code than your source code, but cannot be 
executed. 


3. You link and load separately assembled file(s) into a 
single program file using the LINK-80 linking loader. 
LINK-80 converts the file(s) of intermediate code into a 
single file of true machine code which can be executed from 
the operating system. 


These are only the basics of the whole process. This two 
step process of converting a source file to an executable 
program allows you to manipulate your programs to save you 
time and to extend your programs' usefulness in the 
following ways: 
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+—---------- + 
1 | EDITOR 
| 
p---------- + 
V 
/ \ 
| | source file 
YS 
V 
t---------- t 
2. | MACRO-80 
| 
+---------- + 
V 
/ \ 
| | assembled file 
\ / 
V 
+---------- + 
3. LINK-80 
$---------- + 
V 
/ \ 
| | executable file 
\ / 


Figure 1.1: Developing Assembly Language Programs 
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First, you can break your program in convenient parts cailed 
modules. You can manipulate these modules at will. You can 
assemble the modules individually. You fix only those tnat 
do not work right and reassemble them. This saves you time. 


Second, you can manipulate the placement of modules in 
memory, subject to certain restrictions; or allow LINK-8) 
to place modules for you. (This trait is described below 
under the fourth trait.) 


Third, you can use assembled modules in other programs or 17 
variations of the original program bhecause there is no 
obermanent connection among the modules. This saves you 
recoding time vt apart of a program performs some usefot 
ol ten-repeated task. 


Whenever you want toa combine assembled modules ante ar 
executable program, you use the LINK-80 linking ioader. i: 
,Ou simply tell LINK-80 the modules you want combined, 1% 
ioads them end-to-end in memory. But you have an additional 
cmholce. You can set up a direct connection between a 
statement in one module and a= statement inside another 
modul2. This dir2zct connection (or "“"link") means thrat 3 
value (usually a program address) in one moduie can be us2 
1d another module exactly at the point required. 


LINK-80 creates the links between modules. You give LINK-80 
tie signals it needs to create these links. The signals ar» 
called symbols, specifically EXTERNAL symbols and PUBLIC 
ryymbols. An EXTERNAL symbol signals LINK-80 that you want 
Lt to Link a value trom another module into this point in 
fhe program, The value to be linked-in 16 defined by a 
PUBLIC symbol, which 1s a signal that directs LINK-80 to the 
Corcect module and statement line. LINK-50 then Links the 
PUBLIC symbol's value to tne EXTERNAL symoel, then continues 
loading the module with the EXTERNAL symbol. The diagrar 
below Suggests this process. 


t—------- errr + sloading a module with 
an EXTERNAL symbol 


shere LINK-80 looks tor 
tienen iain + ;the PUBLIC symbol 

| PUBLIC | -and links its value 

tee eee occ r erm + sthen LINK-80 
-continues to load 

>the module with an 

; EXTERNAL symbol 


/\/\1/\1\/N\/N/N\ | 


Figure 1.2: PUBLIC symbol linked into module at EXTERNAL 
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Fourth, modules can be assembled into different modes, even 
within a single module. The four modes are Absolute, 
Data-relative, Code-relative, and COMMON-relative. The 
absolute mode is similar the code produced by most small 
system assemblers. The code is assembled at fixed addresses 
in memory. The other three modes are very different and are 
the reason you can place modules anywhere in memory. Each 
of the three relative modes assembles to a separate segment. 
The addresses within each segment are relative addresses. 
This means the first instruction byte of a segment is given 
a relative address of 0, the second byte is given relative 
address 1, and s0 on. When LINK-80 loads the module, it 
changes the relative addresses in the segments to fixed 
addresses 1n memory. The relative addresses are offsets 
from some fixed address that LINK-80 uses. For the first 
module loaded, this address is 103H under the CP/M operating 
system. Thus, relative addresses inthe first module are 
offsets from 103H. The second module is loaded at the end 
of the first, and the relative addresses are offsets from 
the last address in the first module. Subsequent modules 
are loaded (and offset) similarly. You can change the 
default start address for the first module at link time. 
Then, the relative addresses become offsets from the fixed 
address you 3pecify. 


relative fixed 
address address 
0 +------------------ +103H ;start address 
MOD1 
100 . 20 3H 
mmm esters sr trnnn- ;end MODI, begin MOD2 
0/MOD2 20 4H 
250 45 4H 


wee we ee ee ee ee send of MOD2 


Figure 1.3: Loading Changes Relative Addresses to Fixed 


One effect of this relative addressing method is that ORG 
statements become very different creatures. For the 
relative segments, the ORG statement specifies an offset 
rather than ae fixed address (as most assemblers do -- ORG 
specifies a fixed address in the absolute segment). Thus, a 
relative segment with an ORG statement would skip over a 
specified number of addresses before beginning to load the 


rest of the code in that segment. 
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relative fixed 
address address 
0+-~---------~-~.._. +103H ;Start address 
.|MOD1 
100 . 20348 
ween nen eee ;end MOD1, begin MOD2 
0; MOD2 204H 
50;ORG 50 254H ;skips 50 addresses 
300 . 504H 
--------+---- ee ;end MOD2 


Figure 1.4: ORG in Relative Modes is an Offset 


You should read carefully the description of ORG found in 
Section 4. 


The ability to manipulate the placement of modules in 
meinory, with some restrictions (see Section 5), derives from 
tne assembler giving relative addresses instead of absolute 


addresses, This ability to manipulate module placement in 
memory is called relocatability; the modu les are 
relocatable; the intermediate code produced by) the 


assembler for the three relative segments is called 
relocatable code. That is why assembled modules are given 
the filename extension .REL, and these assembled files are 
called REL files. 


Each mode serves a different purpose. The absolute mode 
contains code you want placed in specific memory addresses. 
Each relative mode is loaded into memory as a_e separate 
segment. The data-relative segment contains data items and 
any code that may change often and should only be placed in 
RAM. The code-relative segment contains code that will not 
change and therefore is suitable for ROM and PROM. The 
COMMON-relative segment contains data items that can be 
shared by more than one module. 


Source statements in these modes take on the traits of their 
mode. The symbols and expressions in statements are 
evaluated by the assembler according to the mode in which 
they are found and the type of data and other entries that 
define the symbol or make up the parts of an expression. 
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The mode traits attributed to a symbol or expression ar? 
called, appropriately, its Mode; that 18, a symbol or 
expression is absolute, data-relative, code-relative, or 
COMMON-relative. This concept of mode 1s important becaus» 
1t 1S the source of voth flexibility and complexity. If all 
source statements are assembled in absolute mode, symbols 
and expressions always have absolute values, and using 
absolute symbols and expressions 18S not complex. The 
problem with absolute mode is that relocatability is 
possible only through the most complex and time consuming of 
techniques, Absolute mode effectively reduces your ability 
to reuse code in a new orogram. 


Tne relative modes (data, code, and COMMON) are the basis of 
relocatability and, therefore, of the flexibility to 
manipulate modules. The complexity is that relative symbols 
and relative expressions are much more difficult to 
evaluate. In fact, the assembler must pass through the 
source statements twice to assemble a module. During the 
first pass, the assembler evaluates the statements) and 
expands macro call statements, calculates the amount of code 
it will generate, and builds a symbol table where all 
symbols and macros are assigned values. During the second 
pass, the assembler fills in the symbol and expression 
values from the symbol table, expands macro call statements, 
and emits the intermediate code into a REL file. 


When the REL files are given to LINK-80, the segments are 
linked together and loaded into fixed memory addresses. The 
relative addresses are converted to absolute addresses. The 
fixed addresses are assigned to the relative segments in the 
order: COMMON-relative and data-relative, then 
code-relative. The relative segments are loaded relative to 
default address 103H under CP/M. (The addresses’ 1LQOQH-102H 
are used for a jump to the start address of the first 


program instruction, which is normally the first address’ 


following the COMMON and data area.) 


When LINK-80 is finished linking modules together and 
assigning addresses, the result can be saved ina file that 
is executable from the operating system. Executing the 
orogram is then as simple as entering an operating system 
command, so these linked and loaded files are called command 
files. 


This short overview should give you a general idea of the 
workings and processes of the Utility Software Package. 
Short descriptions of all the Utility Software Package 
programs are given in the next chapter. Detailed 
descriptions are given in the rest of this manual. 
Therefore, the information contained in this overview will 


be repeated in fuller detail elsewhere in this manual. 
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As an aid to the description in the next chapter and the 
rest of this manual, following 1S an expanded version of 
the diagram at the beginning of this overview. The 
expanded diagram shows the relationships among all the 
programs in the Utility Software Package. 


+-------- + 
CP/M 
EOL'TOR 
$-------- + 
: 
V 
/ .MAC\ 
\ /source file 
V /.UST\ listing file 
t-------- t+ ---->\ft1 ley 
|MACRO-80| -< ---- 
t+-------- t <---->/ .CRE\ t------- + 
\€i le, ----2,CREF-80, 
-—— - e—-- wee - - + 
V | 
=a -— = V 
-REL\ -~--- 
\ /assembled tiie .LST coon? 
fo cwtstt \VFile cre 
t------ + f ina 
|LL[B8-80|<------------ | 
t------ + V 
* | t-—------- + 
| V +----- >| LINK-80| 
---+---- t--------+ 
‘User's \ | 
\Library/----+ [Cte rst rrr rrr rrr srt + 
\files/ V | 
----- ---- +-----+ 
J .COM\ +2225 rrr rrr rc ccte >| DOT |--+ 
\ /executable file +----- + 
| 
V 
$--------- + 
|CP/M O.S.| 
+--------- + 


Figure 1.5: Relationships among programs 
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SECTION 2 


FEATURES OF THE UTILITY SOFTWARE PACKAGE 


The Utility Software Package is an Assembly Language 
Development System that assembles relocatable code from two 
assembly languages, supports a macro facility and 
conditional assembly, and provides several utility programs 
that enhance program development. 


WHAT IS AN UTILITY SOFTWARE PACKAGE? 


An Utility software package is more than an assembler. An 
Utility Software Package is a_e series of related utility 
programming tools: 


for assembling an assembly language source file, 


for linking several assembled modules into one 
program, 


for creating library files of subroutines (also 
assembled modules), 


for creating cross-reference listings of program 
symbols, 


for testing and debugging binary (machine 
executable) program files, 


Microsoft's Utility Software Package provides versions of 
these tools that make the Utility Software Package extremely 
powerful and useful as a program development ' system. Each 
tool in the Utility Software Package is described in detail 
in its own chapter. 


2.1 TWO ASSEMBLY LANGUAGES 
The assembler in your Utility Software Package supports two 


assembly languages. Microsoft's MACRO-80 macro assembler 
supports both 8080 and 280 mnemonics. 
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2.2 RELOCATABILITY 


MACRO-80 can produce modules of relocatable code. Also, 
like many assemblers, the MACRO-80 assembler can produce 
absolute code. The key advantage of relocatability is that 
programs can be assembled in modules. Then, within certain 
restrictions, the modules can then be located almost 
anywhere in memory. 


Relocatable modules also offer the advantages of easier 
coding and faster testing, debugging, and modifying. In 
addition, it is possible to specify segments of assembled 
code that will later be loaded into RAM or into ROM/PROM. 


Relocatability will be discussed further under Section 3.2, 
Symbols. 


2.3 MACRO FACILITY 


The MACRO-80 assembler supports a complete, Intel standard 
macco facility. The macro facility allows a programmer to 
write blocks of code for a set of instructions’ used 
frequently. The need for recoding these instructions is 
+liminated. 


The programmer gives this block of code a name, called a 
macro. The instructions are the macro definition. Each 
time the set of instructions is needed, instead of recoding 
the set of instructions, the programmer simply “calls* the 
macro. MACRO-80 expands the macro call by assembling the 
block of instructions into the program automatically. The 
macro call also passes parameters to the assembler for use 
during macro expansion.. The use of macros reduces the size 
of a source module because the macro definitions are stored 
in disk files and come into the module only when needed 
during assembly. 


Macros can be nested, that iS, a macro can be called from 
inside another macro. Nesting of macros is limited only by 
memory. 


2.4 CONDITIONAL ASSEMBLY 


MACRO-80 also supports conditional assembly. The programmer 
can determine a condition under which portions of the 
program are either assembled or not assembled. Conditional 
assembly capability is enhanced by a complete set of 
conditional pseudo operations that include testing of 
assembly pass, symbol definition, and parameters to macros. 
Conditionals may be nested up to 255 levels. 
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2.5 UTILITY PROGRAMS 


Three utility programs provide the additional support needed 
to develop powerful and useful assembly language programs: 
LINK-80 Linking Loader, LIB-80 Library Manager, and CREF-80 
Cross Reference Facility. 


LINK-80 Linking Loader 


The Microsoft LINK-80 Linking Loader is used to convert the 
assembled module (.REL file) into an executable module (.COM 
file). The .REL file is not an executable file. 


LINK-80 can also be used to: 
load, link, and run one or more modules 


load relocatable programs at user-specified 
locations 


load program areas and data areas into separate 
memory locations 


While performing these tasks, LINK-80 resolves external 
references between modules (that 18, any program that calls 
an external value, something defined ina different program 
or module, will have the outside references filled at link 
time by LINK-80), and saves the executable object (.COM) 
file on disk, so it can be run from the operating system. 


These load capabilities mean that the assembled program may 
be linked with the user's library to add routines to one of 


the high-level langauge_ runtime libraries. Assembled 
programs can be linked to high-level language programs -- 
COBOL-80 and FORTRAN-80, for example -- as well as to 


MACRO-80 programs. 


CREF-80 Cross-Reference Facility 


The CREF-80 Cross Reference Facility processes a_ cross 
reference file generated by MACRO-80. The result is a cross 
reference listing that can aid in the debugging of your 
program. 
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LIB-80 Library Manager 


LIB-80 is designed as a runtime library manager for CP/M 
versions of the Utility Software Package. LIB-80 may also 
pe used to create your own library of assembly language 
subroutines. 


LIB-80 creates runtime libraries from assembly language 
programs that are subroutines to COBOL, FORTRAN, and other 
assembly language programs. The programs collected by 
LIB-80 may be special modules created by the programmer or 
modules from an existing library. With CLIB-80, you can 
create specialized runtime libraries for whatever execution 
reguirements you design. 
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SECTION 3 


PROGRAMMING WITH THE UTILITY SOFTWARE PACKAGE 


This chapter describes what the user needs to know to create 
MACRO-80 macro assembler source files. Source files are 
created using a text editor, such as CP/M ED. The Utility 
Software Package does not include a text editor program. 


Source files are assembled using the procedures described in 
Section 4. 


3.1 SOURCE FILE ORGANIZATION 

File Organization 

A MACRO-80 macro assembler source file is a series of lines 
written in assembly language. The last line of the file 
must be an END statement. Matching statements (such as 
IP...ENDIF) must be entered in the proper sequence. 


Otherwise, lines may appear in any order the programmer 
designs. 


Statement Line Format 


Source files input to the MACRO-80 macro assembler consist 
of statement lines divided intc parts or "fields.* 


BUF : DS 10008 s:create a buffer 


a 


| | | | 
SYMBOL” OPERATION ARGUMENT COMMENT 
SYMBOL field contains one of the three types of symbol 
(LABEL, PUBLIC, and EXTERNAL), followed by a colon 


unless it is part of a SET, EQU, or MACRO 
statement. 


OPERATION field contains an OPCODE, a PSEUDO-OP, a MACRO 
name, or an expression. 


ARGUMENT field contains expressions (specific values, 
variables, register names, operands and operators). 


;COMMENT field contains comment text always preceded by a 
semicolon. 


All fields are optional. You may enter a completely blank line. 
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Statement lines may begin in any column. Multiple blanks or 
tabs are inserted between fields to improve readability, but 
at least one space or tab is required between each field. 


Comments 


A MACRO-80 macro assembler source line is basically an 
Operation and its Argument. Therefore, the MACRO-80 macro 
assembler requires that a COMMENT always begin with a 
semicolon. A COMMENT ends with a carriage return. 


For long comments, you may want to use the .COMMENT 
pseudo-op to avoid entering a semicolon for every line. See 
the File Related Pseudo-ops section of Section 4 for the 
description of .COMMENT. 


3.2 SYMBOLS 


Symbols are simply names for particular functions or values. 
Symbol names are created and defined by the programmer. 


Symbols in the Utility Software Package belong to one of 
three types, according to their function. The three types 
ace LABEL, PUBLIC, and EXTERNAL. All three types of symbols 
have a MOOB attribute that corresponds to the segment of 
memory the symbol represents. Refer to the section on modes 
Eollowing the description of symbol types. 


All three types of symbols have the following 
characteristics: 


1. Symbols may be any length, but the number of 
Significant characters passed to the linker varies 
with the type of symbol: 


a. for LABELs, only the first sixteen characters 
are significant. 


b. for PUBLIC and EXTERNAL symbols, only the first 
‘gix characters are passed to the linker. 


Additional characters are truncated internally. 

2. A legal symbol name may contain the characters: 
A-Z 0-9 $ ? @ _ 

3. A symbol may not start with a digit or an underline 
4. When a symbol is read, lower case is translated 


into upper case, so you may enter the name using 
either case or both. 
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LABEL: 


A LABEL: is a reference point for statements inside the 
program module where the label appears. A LABEL: sets the 
value of the symbol LABEL to the address of the data that 
follows. For example, in tine statement: 


BUF: DS 1000H 


BUF: equals the first address of the 1000H byte reserved 
space. 


Once a label is defined, the label can be used as an entry 
in the ARGUMENT field. A statement with a label in its 
argument loops to the statement line with that label in its 
SYMBOL field, which 18 where the label is defined. The 
label's definition replaces the label used in an ARGUMENT 
field. For example, 


STA BUF 


sends the value in the accumulator to the area in-memory 
represented by the label BUF. 


A LABEL may be any legal symbol name, up to 16 characters 
long. 


If you want to define a LABEL, it must be the first item in 
the statement line. 8080 and 280 labels must be followed 
immediately by a single colon (no space), unless the LABEL 
1s part of a SET or EQU statement. (If two colons are 
entered, the “label"™ becomes a PUBLIC symbol. See PUBLIC 
Symbols below.) 


PUBLIC 
A PUBLIC symbol is defined much 1ike a_e LABEL. The 
difference is that a PUBLIC symbol is available asa 


reference point for statements in other program modules, 
too. 


A symbol is declared PUBLIC by: 
two colons (::) following the name. For example, 
FOO: : RET 


one of the pseduo-ops PUBLIC, ENTRY, or GLOBAL. 


222 


Utility Software Reference Manual Page 3-4 


For example, 
PUBLIC FOO 


see the Data Definition and Symbol Definition 
Pseudo-ops section in Section 4 for descriptions of 
how to use these pseudo-ops. 


The result of both methods of declaration is the same. 
Therefore, 


FOO: : RET 
is eguivalent to 

PUBLIC FOO 

FOO: RET 
EXTERNAL 
An EXTERNAL symbol is defined outside the program module 
where it appears. An EXTERNAL symbol is defined as a PUBLIC 
symbol in another, separate progran module. At link time 
(when the LINK-80 Linking Loader is used), the EXTERNAL 
syNbol is given the value of the PUBLIC symbol in the other 
vcogram module. For example: 


MOD1 


FOO: : DB 7 ;PUBLIC FOO 2 7? 


BYTE EXT FOO ; EXTERNAL rOU 


At link time, LINK-80 goes to the address of PUBLIC 
FOO and uses the value thers (7) for EXTERNAL FOO. 


A symbol is declared EXTERNAL by: 


1. two pound signs (€€) following a treference to a 
symbol name. For example: 


CALL FOOEE 


declares FOO as a two-byte symbol defined in 
another program module. 
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2. one of the pseudo-ops EXT, EXTRN, or EXTERNAL for 
two-byte values. For example: 


EXT FOO 


declares FOO as a two-byte value defined in another 
program module. 


3. one of the pseudo-ops BYTE EXT, BYTE EXTERN, or 
BYTE EXTERNAL for one-byte values. For example: 


BYTE EXT FOO 


declares FOO as a one-byte value defined in another 
program module. 


See the Symbol Definition Pseudo-ops section in 
Section 4 for descriptions of how to use these 
pseudo-ops. 


As for PUBLIC symbols, the result of both methods of 
declaration is the same. Therefore, 


CALL FOOEE 
is equivalent to 


EXT FOO 
CALL FOO 


MODES 


A symbol is referenced by entering its name in the ARGUMENT 
field of a statement line. When a symbol is referenced, the 
value of the symbol (derived from the instruction which 
defines the symbol) is substituted for the symbol name and 
used in the operation. 


The value of a symbol is evaluated according to its program 
counter (PC) mode. The PC mode determines whether a section 
of a program will be loaded into memory at addresses 
predetermined by the programmer (absolute mode), or at 
relative addresses that change depending on the size and 
number of programs (code relative mode) and amount of data 
(data relative mode), or at addresses shared with another 
program module (COMMON mode). The default mode is Code 
Relative. 
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Absolute Mode: Absolute mode assembles non-relocatable 
code. A programmer selects Absolute mode when a block of 
program code is to be loaded each time into specific 
addresses, regardless of what else is loaded concurrently. 


Data Relative Mode: Data Relative mode assembles code for a 
section of a program that may change and therefore must be 
loaded into’ RAM. This applies to program data areas 
especially. Symbols in Data Relative Mode are relocatable. 


Code Relative Mode: Code (program) Relative mode assembles 
code for sections of programs that will not be changed and 
therefore can be loaded into ROM/PROM. Symbols in Code 
Relative Mode are relocatable. 


COMMON Mode: COMMON mode assembles code that is loaded into 
a defined common data area. This allows program modules to 
share a block of memory and common values. 


To change mode, use a PC mode pseudo-op in a statement line. 
The PC mode pseudo-ops are: 


ASEG Absolute mode 

DSEG Data Relative mode 

CSEG Code Relative mode--default mode 
COMMON COMMON mode 


These pseudo-ops are described in detail in the PC Mode 
Pgeudo-ops section of Section 4. 


This PC mode capability in the MACRO-80 macro assembler 
Allows a programmer to develop assembly language programs 
that can be relocated. Many assembly language programmers 
may have learned always to set an Origin statement at the 
beginning of every module, subroutine, or main assembly 
language program. Under MACRO-80 this mode of addressing is 
called Absolute mode because hard (or actual addresses) are 
specified beginning, especially, with the Origin statement. 


MACRO-80 has two other, “relative" modes of addressing 
available, called Code (Program) relative and Data relative. 
Segments of code written in these two modes are relocatable. 
Relocatable means the program module can be loaded starting 
at any address in available memory, using the /P and /D 
switches (special commands) in LINK-80. 
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3.3 OPCODES AND PSEUDO-OPS 


Opcodes are the mnemonic names for the machine instructions. 
Pseudo-ops are directions to the assembler, not’ the 
microprocessor. 


MACRO-80 supports two instruction sets: 8080 and 280. A 
list of the opcodes with brief summaries of their functions 
is included as an appendix. To program with the opcodes of 
the different languages, the user must first enter the 
pseudo-op which tells the assembler which language is being 
coded. Refer to the Language Set Selection Pseudo-ops 
section of Section 4 for details. 


MACRO-80 also supports a large variety of pseudo-ops’ that 
direct the assembler to perform many different functions. 
The pseudo-ops are described extensively in Section 4. 


Opcodes and pseudo-ops are (usually) entered in the 
OPERATION field of a statement line. (A program statement 
line usually has an entry in the operation field, unless the 
line is a Comment line only. The Operation field will be 
the first field filled if no label is entered.) An 
Operation may be any 8080 or 280 mnemonic; or a MACRO-80 
macro assembler pseudo-op, macro call, or expression. 


The OPERATION field entries are evaluated in the following 
order: 


1. Macro call 
2. Opcode/Pseudo-op 
3. Expressions 


MACRO-80 compares the entry in the OPERATION filed to an 
internal list of macro names. If the entry is found, the 
macro is expanded. If the entry is not a macro, MACRO-80 
tries to evaluate the entry as an opcode. If the entry is 
not an opcode, MACRO-80 tries to evaluate the entry as a 
pseudo-op. If the entry is not a_pseudo-op, MACRO-80 
evaluates the entry as an expression. If an expression 15 
entered as a statement line without an opcode, pseudo-op, or 
macro name in front of it, the MACRO-80 macro assembler does 
not return an error. Rather, the assembler assumes that a 
define byte pseudo-op belongs in front of the expression and 
assembles the line. 
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Recause of the order of evaluation, a macro name that is the 
same as an opcode prevents you from using the opcode again, 
except as a macro call. For example, if you give a block of 
macco code the name ADD in your program, you cannot use ADD 
as an opcode in that program. 


3.4 ARGUMENTS: EXPRESSIONS 


Arguments for the opcodes and pseudo-ops are usually called 
expressions because they resemble mathematical expressions, 
such as 5+4*3, The parts of an expression are called 
operands (5, 4, and 3 in the mathematical expression) and 
oberators (the + and * are examples). Expressions may 
contain one operand or more than one. One operand 
—"xpressions are probably the form most commonly used as 
Arguments. If the expression contains more than one 
ovoercand, the operands are related to each other by = an 
Operator. For example: 


5+4 6-3 7*2 8/7 9>8 


and so on, In MACRO-80, operands are numeric values 
represented by numbers, characters, symbols, or 8080 
opcodes. Operators may be arithmetic or logical. 


You are probably familiar with the various forms of 
expressions that can be used as arguments, but you may want 
to ceview the details given below for characteristics unique 
to MACRO-80. 


The Following sections define the forms of operands and 
Operators MACRO-80 Supports. 


3.4.1 Operands 


Operands may be numbers, characters, symbols, or 8080 
opcodes. 


Numbers 


The default base for numbers is decimal. The dase may be 
changed by the .RADIX pseudo-op. Any base from 2 (binary) 
to 16 (hexadecimal) may be selected. When the radix is 
greater than 10, A-F are used for the digits following 9. 
If the first digit of a number is not numeric, the number 
must be preceded by a zero. 
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A number is always evaluated in the current radix unless one 
of the following special notations is used: 


nonnB Binary 
nnnnD Decimal 
nnnno Octal 

nnnng Hexadecimal 
X'nnnn' Hexadecimal 


Numbers are 16-bit unsigned binary quantities. Overflow of 
a number beyond two bytes (16 bits -- that is, 65535 
decimal) is ignored, and the result is the low order 16 
bits. 


ASCII Strings 


A string is composed of zero or more characters delimited by 
quotation marks. Either single (') or double (") quotation 
marks may be used as string delimiters. When a quoted 
string is entered as an argument, the values of the 
characters are stored in memory one after the other. For 
example: 


DB “ABC* 


stores the ASCII value of A at the first address, B at the 
second address, and C at the third. 


The delimiter quotes may be used as characters if they 
appear twice for every character occurrence desired. For 
example, the statement 


"I am ““great"" today” 
stores the string 
I am “great” today 


If no characters are placed between the quotation marks, the 
string is evaluated as a null string. 


Character Constants 


Like strings, character constants are composed of zero, one, 
or two ASCII characters, delimited by quotation marks. 
Either single or double quotation marks may be used as 
delimiters. The delimiter quotes may be used as characters 
if they appear twice for every character occurrence desired. 
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The differences are: 


1. <A character constant is only zero, one, or two 
characters. 


2. Quoted characters are a character constant only if 
the expression has more than one operand. If the 
characters are entered as the only operand, they 
are evaluated and stored as a string. For example: 


"A'+l is a character constant, but 


"A’' 18 a string. 


3. The value of a character constant is calculated, 
and the result is stored with the low-byte in the 
first address and the high-byte in the second. For 
example; 


DW "AB' +0 


evaluates to 4142H and stores 42 in the first 
address and 41 in the second. 


A character constant comprised of one character has as its 
value the ASCII value of that character. That is, the high 
order byte of the value is zero, and the low order byte is 
the ASCII value of the character. For example, the value of 
the constant ‘A’ is 418. 


A character constant comprised of two characters has as its 
value the ASCII value of the first character in the high 
order byte and the ASCII value of the second character in 
the low order byte. For example, the value of the character 
constant ‘AB!'+0 is 41H*256+42H+0. 


The ASCII decimal and hexadecimal values for characters are 
listed in Appendix C. 


Symbols in Expressions 


A symbol may be used as an operand in an expression. The 
symbol is evaluated, and the value is substituted for the 
symbol. The Operation is performed using the symbol's 
value. 
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The benefit of using symbols as operands is that the 
programmer need not remember the exact value each time it is 
needed; rather, the symbol name can be used. The name is 
usually easier to remember, especially if the symbol name is 
made mnemonic. The use of symbols as operands becomes more 
attractive, of course, as the number of symbols in a program 
increases. 


Rules Governing the Use of EXTERNALS in expressions: 


Ll. EXTERNAL symbols may be used in expressions with 
tne following operators only: 


+ - * / MOD HIGH LOW 


2. If an EXTERNAL symbol is used in an expression, the 
result of the expression is always external. 


MODE Rules affecting SYMBOLS in expressions: 


l. In any operation, except AND, OR, or XOR, the 
operands may be any mode. 


2. For AND, OR, XOR, SHL, and SHR, both operands must 
be absolute and internal. 


3. When an expression contains an Absolute operand and 
an operand in another mode, the result of the 
expression will be in the other (not Absolute) 
mode. 


4. When subtracting two operands in different modes, 
the result will be in Absolute mode. Otherwise, 
the result will be in the mode of the operands. 


5. When adding a data relative symbol and a= code 
relative symbol, the result will be unknown, and 
MACRO-80 passes the expression to LINK-80 aS_ an 
unknown, which LINK-80 resolves. 


Current Program Counter Symbol 


One additional symbol for the Argument field only must be 


noted: the current program counter symbol. The current 
program counter is the address of the next instruction to be 
assembled. The current program counter is often a 


convenient reference point for calculating new addresses. 
Instead of remembering or calculating the current program 
address, the programmer uses a symbol that tells the 
assembler to use the value of the current program address. 


The current program counter symbol is $. 
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8080 Opcodes as Operands 


8080 opcodes are valid one-byte operands in 8080 mode only. 
During assembly, the opcode is evaluated to its hexadecimal 
value. 


To use 8080 opcodes as operands, first set the .8080 
pseudo-op. See the Language Set Selection Pseudo-ops 
section of Section 4 for a description of how to use the 


Only the first byte is a valid operand. Use parentheses to 
direct the assembler to generate one byte for opcodes that 
normally generate more than one. For example: 


MVI A,(JMP) 
ADI (CPI) 

MVI B,(RNZ) 
CPI (INX H) 
ACI (LXI B) 
MVI C,MOV A,B 


The assembler returns an error if more than one byte is 
included in the operand (inside the parentheses) -- such as 
(CPL 5), (LXI B,LABEL1), or (JMP LABEL2). 


Opcodes that generate one byte normally may be used as 
operands without being enclosed in parentheses. 


3.4.2 Operators 


MACRO-80 allows both arithmetic and logical operators. 
Operators which return true or false conditions return true 
if the result is any non-zero value and false if the result 
1S zero. 


The following arithmetic and logical operators are allowed 
in expressions. 


Operator Definition 
NUL Returns true if the argument (a parameter) 1s 


null. The remainder of the line after NUL 1S 
taken as the argument to NUL. 
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The conditional 
IF NUL <argument> 


is false if the first character of the 
argument is anything other than a semicolon 
Or carriage return. Note that IPB and _ MIFNB 
perform the same functions but are simpler to 
use, (Refer to the Conditional Assembly 
Pacility section in Section 4.) 


TYPE The TYPE operator returns a byte that 
describes two characteristics of its 
argument: 1) the mode, and 2) whether it is 
External or not. The argument to TYPE may be 
any expression (string, numeric, logical). 
If the expression is invalid, TYPE returns 
zero. 


The byte that is returned is configured as 
follows: 


The lower two bits are the mode. If the 
lower two bits are: 


0 the mode is Absolute 

l the mode is Program Relative 
2 the mode is Data Relative 

3 the mode is Common Relative 


The high bit (80H) 1s the External bit. If 
the high bit is on, the expression contains 
an External. If the high bit is off, the 
expression is local (not External). 


The Defined bit is 20H. This bit is on i € 
the expression is locally defined, and it is 
off if the expression is undef ined Or 
external. If neither bit is on, the 
expression is invalid. 


TYPE is usually used inside macros, where an 
argument type may need to be tested to make a 


decision regarding program flow; for 
example, when conditional assembly is 
involved. 
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EXAMPLE: 
FOO MACRO X 
LOCAL yA 
yA SET TYPE X 
IF 


TYPE tests the mode and type of X. Depending 
on the evaluation of xX, the block of code 
beginning with IF Z... may be assembled or 
omitted. 


LOW Isolates the low order 8 bits of an absolute 
16-bit value. 


HIGH Isolates the high order 8 bits of an absolute 
16-bit value. 


* Multiply 

/ Divide 

MOD Modulo. Divide the left operand by the right 
operand and return the value of the remainder 
(modulo). 
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SHR Shift Right. SHR is followed by an integer 
which specifies the number of bit positions 
the value is to be right shifted. 


SHL Shift Left. SHL is followed by an integer 
which specifies the number of bit positions 
the value is to be left shifted. 


- (Unary Minus)Indicates that following value is negative, 
as 1n a negative integer. 


+ Add 

- Subt gact: she right operand from the left 
operand. ) 

EQ Equal. Returns true if the operands equai 


each other, 


NE Not Equal. Returns true if the operands) are 
not equal to each other. 


LT Less Than. Returns true if the left cperand 
is less than the right operand. 


LE Less than or Equal. Returns true if the left 
Operand is less than or equal to the right 
operand. 

GT Greater Than. Returns true if the left 


operand is greater than the right operand. 


GE Greater than or Equal. Returns true if the 
left operand 1s greater than or equal to the 
right operand. 


NOT Logical NOT. Returns true if left operand is 
true and right is false or if right 1s true 
and left is false. Returns false if both are 
true or both are false. 


AND Logical AND. Returns true if both operators 
are true. Returns false if either operator 
is false or if both are false. Both operands 
must be absolute values. 


OR Logical OR. Returns true if either operator 
is true or if both are true. Returns false 
if both operators are false. Both operands 
must be absolute values. 
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XOR Exclusive OR. Returns true if either 
Operator is true and the other is false. 
Returns false if both operators are true or 
if both operators are false. Both operands 
must be absolute values. 


The order of precedence for the operators is: 
NUL, TYPE 
LOW, HIGH 
*, /, MOD, SHR, SHL 
Unary Minus 
+, - 
EQ, NE, LT, LE, GT, GE 
NOT 
AND 
OR, XOR 
Subexpressions involving operators of higher precedence than 
an expression are computed first. The order of precedence 
may be altered by using parentheses around portions of an 


expression you wish to give higher precedence. 


All operators except +; -, *, and / must be separated trom 
their operands by at least one space. 


The byte isolation operators (HIGH and LOW) 1solate the 
high- or low-order 8 bits of a 16-bit value. 
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SECTION 4 


ASSEMBLER FEATURES 


The MACRO-80 macro assembler features three general 
facilities: Ssingle-function pseudo-ops, a macro facility, 
and a conditional assembly facility. 


4.1 SINGLE-FUNCTION PSEUDO-OPS 


Single-function pseudo-ops involve only their own statement 
line and direct the assembler to perform only one function. 
(Macros and conditionals involve more than one line of code, 
so they may be thought of as block pseudo-ops.) 


The Single-FPunction Pseudo-ops are divided into five types: 
Instruction Set Selection, Data Definition and Symbol 
Definition, PC Mode, File Related, and Listing Control. 


INSTRUCTION SET SELECTION 


The default instruction set mode is 8080. If the correct 
instruction set selection pseudo-op is not given, the 
assembler will return fatal errors for opcodes that are not 
valid for the current instruction set selection mode. That 
is, .280 assembles 280 opcodes only; .8080 assembles 8080 
opcodes only. Therefore, if you have written any assembly 
language programs for 280, you need to insert the .280 
instruction set pseudo-op at the beginning of the program 
file. 


Note that all the pseudo-ops listed in this chapter will 
assemble in both instruction set modes. 


> 


280 takes no arguments. .280 directs MACRO-80 to 
assemble 280 opcodes. 


.8080 takes no arguments. .8080 directs MACRO-80 
to assemble 8080 opcodes. (default) 
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All opcodes entered following an Instruction Set 
Selection pseudo-op will be assembled as that type 
of code until a different Instruction Set Selection 
pseudo-op is encountered. 


If you enter an opcode not belonging to _ the 
selected instruction set, MACRO-80 will return an 
Objectionable Syntax error (letter 0). 


All of the data definition and symbol definition pseudo-ops 
are supported in both instruction set modes. (The one 
notable exception is SET, which is illegal in .280 mode. 
For your information, The following notation has been placed 
before the pseudo-op syntax to indicate which microprocessor 
the pseudo-op is usually associated with: 


® indicates a 280 pseudo-op 
No asterisk indicates an Intel 8080 pseudo-op 
Define Byte 


DB <exp>(,<exp>...] 
* DEPB <exp>(,<exp>...] 
DB <string>(<string>...] 
* DEFM <string>(,<string>...] 


The arguments to DB are either expressions or 
strings. The arguments to DEFB are expressions. 
The arguments to DEFM are strings. Strings must be 
enclosed in quotes, either single or double. 


NOTE: DB is used throughout the following 
explanation to represent all the Define Byte 
pseudo-ops. 


DB is used to store a value (string or numeric) in 
a memory location, beginning with the current 
location counter. 


Expressions must evaluate to one byte. (If the 


high byte of the result is 0 or 255, no error is 
given; otherwise, an A error results.) 
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Strings of three or more characters may not be used 
in expressions (i.e., they must be immediately 
followed by a comma or the end of the line). The 
characters in a 8080 or 280 string are stored in 
the order of appearance, each aS a one-byte value 
with the high order bit set to zero. 


EXAMPLE: 
DB "AB' 
DB ‘AB' AND OFFH 
DB "ABC' 
assembles as: 
0000" 41 42 OB ‘AB’ 
0002'° 42 DB ‘AB' AND OFFH 
0003' 41 42 43 DB "ABC' 


Define Character 
DC <string> 


DC stores the characters in <string> in successive 
memory locations beginning with the current 
location counter. As with OB, characters are 
stored in order of appearance, each as a one-byte 
value with the high order bit set to zero. 
However, DC stores the last character of the string 
with the high order bit set to one. Aneerror will 
result if the argument to DC is a null string. 


EXAMPLE: 

FOO: DC "ABC" 
assembles to: 
0000° 41 42 C3 FOO: DC “ABC* 
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Define Space 


DS <exp>[,<val>] 
* DEFS <exp>[,<val>] 


The define space pseudo-ops reserve an area of 
memory . The value of <exp> gives the number of 
bytes to be reserved. 


To initialize the reserved space, set <val> to the 
value desired. If <val> is nul (that is, omitted), 
the reserved space is left as is (uninitialized); 
the reserved block of memory is not automatically 
initialized to zeros. As an alternative to setting 
<val> to zero, when you want the define space block 
initialized to zeros, you may use the /M Switch at 
assembly time. See the Switches section in Section 
S, Running MACRO-80, for a description of the /M 
Switch. 


All names used in <exp> must be previously defined 
(i1.e@., all names known at that point on pass 1). 
Otherwise, a V error 1S generated during pass 1, 
and a U error may be generated during pass 2. Ifa 
U error is not generated during pass 2, a phase 
ecror will probably be generated because the define 
Space pseudo-op generated no code on pass l. 


EXAMPLE: 
DS 1Q0H 


reserves l100H bytes of memory , uninitialized 
(whatever values were in those bytes before the 
program was loaded will still be there). Use the 
/M switch at assembly time to initialized the 1004 
bytes to zero, if you want. Or, use the following 
Statement to initialize a reserved space to zero or 
any other value: 


DS 100H,2 


reserves 100H bytes, each initialized to a value of 
2. 
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Define Word 


DW <exp>[,<exp>...] 
* DEFW <exp>[,<exp>...] 


The define word pseudo-ops store the values of the 


expressions in successive memory locations 
beginning with the current location counter. 
Expressions are evaluated as 2-byte (word) values. 
Values are stored low-order byte first, then 


high+order byte. 


Contrast with DDB. 


EXAMPLE: 

FOO: OW 1234H 
assembles as: 
0000° 1234 FOO: DOW 1234H 


Note: The bytes are shown on the listing in the 
order entered, not the order stored. 


Eguate 

<name> EQU <exp> 
EQU assigns the value of <exp> to <name>. The 
<name> may be a labeS, a symbol, or a variable, and 
may be used subsequently in expressions. <name> 


may not be followed by colon(s). 

If <exp> is External, an error is generated. If 
<name> already has a value other than <exp>, an M 
error is generated. 


If you will want to redefine <name> later in_ the 
program, use the SET or ASET pseudo-op to define 
<name> instead of EQU. 


Contrast with SET. 


EXAMPLE: 


BUF EQU OF3H 
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External Symbol 


EXT <name>(,<name>...] 
EXTRN <name>[,<name>...] 

* EXTERNAL <name>(,<name>...] 
BYTE EXT <symbol> 
BYTE EXTRN <symbol> 
BYTE EXTERNAL <symbol> 


The External symbol pseudo-ops declare that the 
name(s) in the list are External (i.e., defined in 
a different module). If any item in the list 
refers to a name that is defined in the current 
program, an M error results. A reference to a name 
where the name is followed immediately be two pound 
Signs (e.g., NAMEE£) also declares the name as 
External. 


Externals may evaluate to either one or two bytes. 
For all External symbol names, only the first 6 
characters are passed to the linker. Additional 
characters are truncated internally. 


EXAMPLE: 
EXTRN I TRAN stranf init rtn 


MACRO-80 will generate no code for this statement 
when this module is assembled. When ITRAN is used 
as an argument to a CALL statement, the CALL ITRAN 
statement generates the code for CALL but a zero 
value (0000*%) for ITRAN. At link time, LINK-80 
will search all modules loaded for a PUBLIC ITRAN 
statement and use the definition of ITRAN found in 
that module to define ITRAN in the CALL ITRAN 
statement. 


Public Symbo} 


ENTRY <name>(,<name>...) 
GLOBAL <name>[(,<name>...] 
PUBLIC <name>[,<name>...] 


The Public symbol pseudo-ops declare each name in 
the list as internal and therefore available for 
use by this program and other programs to be loaded 
concurrently and linked with LINK-80. All of the 
names in the list must be defined in the current 
program, or a U error results. An M error is 
generated if the name is an External name or common 
block name. 
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Only the first 6 characters of a Public symbol name 
are passed to the linker. Additional characters 
are truncated internally. 


EXAMPLE: 


PUBLIC ITRAN ;tranf init rtn 


ITRAN: LD HL,PASSA ;Store addr of 
;reg pass area 


MACRO-80 assembles the LD statement as usuall but 
generates no code for the PUBLIC ITRAN statement. 
When LINK-80 sees EXTRN ITRAN 1n another module, it 
KNOWS to search until it sees this PUBLIC ITRAN 
Statement. Then, LINK-80 links the value of ITRAN: 
LD HL,PASSA statement to the CALL ITRAN statement 
in the other module(s). 


Set 


<name> SET <exp> (Not in .Z80 mode) 
* <name> DEFL <exp> 
<name> ASET <exp> 


The Set pseudo-ops assign the value of <exp> to 


<name>. The <name> may be a label, a symbol, or a 
variable, and may be used subsequently in 
expressions. <name> may not be followed by 
colon(s). If <exp> 1S External, an error is 


generated. 


The SET pseudo-op may not be used in .280 mode 


because SET 18 a 280 opcode. Both ASET and DEFL 
may be used in both instruction set modes. 


Use one of the SET pseudo-ops instead of EQU to 
define and redefine <name>s you may want to 
redefine later. <name> may be redefined with any 
of the Set pseudo-ops, regardless of which 
pseudo-op was used to define <name> originally (the 
prohibition against SET in .280 mode still applies, 
however). 


Contrast with EQU. 
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EXAMPLE: 

FOO ASET BAZ+1000H 
Whenever FOO is used aS an expression (operand), 
the ALDS assembler will evaluate BAZ+1000H and 
substitute the value for FOO. Later, if you want 
FOO to represent a different value, simply reenter 
the FOO ASET statement with a different expression. 


FOO ASET BAZ+1000H 


FOO ASET 3000H 


FOU DEFL 6CDEH 


PC MODE 


Many of the pseudo-ops operate on or from the current 
location counter, also Known as the program counter or PC. 
The current PC is the address of the next byte to be 
generated, 


Tn MACRO-80, the PC has a mode, which gives symbols and 


expressions their modes. (Refer again to the Overview in 
Section 1l and the Symbols section in Section 3, if 
necessary.) Each mode i8 given a segment of memory by 


LINK-80 for the instructions assembled to each mode. 


The four modes are Absolute, Data Relative, Code Relative, 
and COMMON Relative. 


lt the PC mode is absolute, the PC is an absolute address. 
[f the PC mode is relative, the PC is a relative address and 
may be considered an offset from the absolute address where 
the beginning of that relative segment will be loaded by 
LINK-80. 


The PC mode pseudo-ops are used to specify in which PC mode 
a segment of a program will be assembled. 
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Absolute Segment 


ASEG ASEG never has operands. ASEG generates 
non-relocatable code. 


ASEG sets the location counter to an absolute 
segment (actual address) of memory. The ASEG will 
default to 0, which could cause the module to write 
over part of the operating system. We recommend 
that each ASEG be followed with an ORG statement 
set at 103H or higher. 


Code Seqment 


CSEG CSEG never has an operand. Code assembled in Code 
Relative mode can be loaded into ROM/ PROM. 


CSEG resets the location counter to the code 
relative segment of memory. The location will be 
that of the last CSEG (default is 0), unless an ORG 
is done after the CSEG to change the location. 


Note, however, that the ORG statement does not set 
a hard (absolute) address under CSEG mode. An ORG 
Statement under CSEG causes the assembler to add 
the number of bytes specified by the <exp> argument 
in the ORG statement to the last CSEG address 
loaded. If, for example, ORG 50 is given, MACRO-80 
will add 50 bytes to the current CSEG location then 
begin loading the CSEG. The clearing effect of the 
ORG statement following CSEG (and DSEG as well) can 
be used to give the module an offset. The 
rationale for not allowing ORG to set an absolute 
address for CSEG is to keep the CSEG relocatable. 


To set an absolute address for the CSEG, use the /P 


CSEG is the default mode of the assembler. 
Assembly begins with a CSEG automatically executed, 
and the location counter in the Code Relative mode, 
pointing to location 0 in the Code Relative segment 
of memory. All subsequent instructions will be 
assembled into the Code Relative segment of memory 
until an ASEG, OSEG, or COMMON pseudo-op is 
executed. CSEG is then entered to return the 
assembler to Code Relative mode, at which point the 
location counter returns to the next free location 
in the Code Relative segment. 
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Data Segment 


DSEG The DSEG pseudo-op never has operands. DSEG 
specifies segments of assembled relocatable code 
that will later be loaded into RAM only. 


DSEG sets the location counter to the Data Relative 
segment of memory. The location of the data 
relative counter will be that of the last DSEG 
(default is 0), unless an ORG is done after the 
DSEG to change the location. 


Note, however, that the ORG statement does not set 
a hard (absolute) address under DSEG mode. An ORG 
statement under DSEG causes the assembler to _ add 
the number of bytes specified by the <exp> argument 
in the ORG statement to the last ODSEG address 
loaded. If, for example, ORG 50 is given, MACRO-80 
will add 50 bytes to the last DSEG address _ loaded 
then begin loading the DSEG. The clearing effect 
of the ORG statement following DSEG (and CSEG as 
well) can be used to give the module an offset. 
The rationale for not allowing ORG to set an 
absolute address for DOSEG is to keep the DSEG 
relocatable. 


To set an absolute address for the DSEG, use the /D 
switch in LINK-80. 


Common Block 
COMMON /<block name>/ 


The argument to COMMON is the common block name. 
COMMON creates a common data area for every COMMON 
block that is named in the program. If <block 
name> is omitted or consists of spaces, the block 
is considered to be blank common. 


COMMON statements are non-executable, storage 
allocating statements. .COMMON assigns variables, 
arrays, and data to a storage area called COMMON 
storage. This allows various program modules to 
share the same storage area. Statements entered 
following the .COMMON statement are assembled to 
the COMMON area under the <block name>. The length 
of a COMMON area is the number of bytes required to 
contain the variables, arrays, and data declared in 
the COMMON block, which ends when another PC mode 
pseudo-op is encountered. 
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COMMON blocks of the same name may be different 
lengths. If the lengths differ, then the program 
module with the longest COMMON block must be 
loaded first (that is, must be the first module 
name given in the LINK-80 command line. 


COMMON sets the location counter to the selected 
common block in memory. The location is always the 
beginning of the area so that compatibility with 
the FORTRAN COMMON statement is maintained. 


EXAMPLE: 
COMMON /OATABIN/ 

ANVIL EQU LOOH 
DB OF FH 
OW 1234H 
DCI "FORGE' 
CSEG 

Set Origin 


ORG <exp> 


At any time, the value of a location counter may be 
changed by use of ORG. Under the ASEG PC mode, the 
location counter is set to the value of <exp>, and 
the assembler assigns generated code starting with 
that value. Under the CSEG, DSEG, and COMMON) PC 
modes, the location counter for the segment is 
incremented by the value of <exp>, and the 
assembler assigns generated code starting with the 
value of that last segment address loaded plus’ the 
value of <exp>. All names used in <exp> must be 
known on pass l, and the value must either be 
Absolute or in the same area as the location 


counter, 
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EXAMPLE: 


DSEG 
ORG 50 


sets the Data Relative location counter to 50, 
relative to the start of the Data Relative segment 
of memory. This means that the first S0H addresses 
will be filled with 0. This method provides 
relocatability. The ORG <exp> statement does not 
specify a  ftrxed address in CSEG or DSEG mode; 
rather, LINK-80 loads the segment at ae flexible 
address appropriate to the modules being loaded 


together. 
On the other hand, a program that begins with the 
statements 

ASEG 

ORG 800H 


and is assembled entirely in Absolute mode will 
alwavs load beginning at 800H, unless the ORG 
Statement 18s changed in the source file. That is, 
ORG <exp> following ASEG originates the segment at 
a fixed (i.e., absolute) address specified by 
<exp>. However, the same program, assembled in 
Code Relative mode with no ORG statement, may be 
loaded at any specified address by appending the 
/P:<address> switch to the LINK-80 command string. 


Relocate 
.~PHIASE <exp> 


-.DEPHASE 
.PHASE allows code to be located in one area, but 
executed only at a different area with a start 
address specified by <exp>. The <exp> must be = an 
absolute value. .DEPHASE is used to indicate the 
end of the relocated block of code. 


The PC mode within a .PHASE block is absolute, the 
game as the mode of the <exp> in the .PHASE 
statement. The code, however, is loaded in the 
area in effect when the .PHASE statement i138 
encountered. The code within the block is later 
moved to the address specified by <exp> for 
execution. 
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EXAMPLE: 
. PHASE 100H 
FOO: CALL BAZ 
JMP Z00 
BAZ: RET 
.DEPHASE 
ZOO: JMP 5 
assembles as: 
. PHASE 100H 
0100 CD 0106 FOO: CALL BAZ 
0103 C3 0007' JMP ZOO 
0106 C9 BAZ: RET 
DEPHASE 
0007'° C3 0005 ZOO: JMP 
END 


-PHASE....DEPHASE blocks are a way to execute a 
block of code at a specific absolute address. 


FILE RELATED 


The file related pseudo-ops insert long comments in the 
program, give the module a name, end the module, or move 
other files into the current program. 


Comment 
.COMMENT <delim><text><delim> 


The first non-blank character encountered after 
~COMMENT is taken as the delimiter. The <text> 
following the delimiter becomes a comment block 
which continues until the next occurrence of 
<delimiter>. 


Use the .COMMENT pseudo-op to make long comments. 
It is not necessary to enter the semicolon to 
indicate a COMMENT. Indeed, the main reason for 
using .COMMENT is to override the need to begin 
each comment line with a semicolon. During 
assembly, .COMMENT blocks are ignored and “>not 
assembled. 


248 


Utility Software Reference Manual Page 4-14 


EXAMPLE: 


.COMMENT * any amount of text 
entered here 


-* ;return to normal assembly 


End of Program 

END {<exp>)- The END statement soecifies the end of the 
module. If the END statement is not included, a 
tNo END statement warning error message results. 


The <exp> may be a label, symbol, number, or any 
Other legal argument that LINK-80 can load as the 
Starting point into the first address to be loaded. 
If <exp> is present, LINK-80 will place an 8080 J™MP 
instruction at O100H to the address of <exp>. If 
<exp> is not present, then no start address is 
passed to LINK-80 for that program, and execution 
begins at the first module loaded. (Also, if <exp> 
is not specified, the LINK-80 /G switch will not 
work for the module.) 


The <exp> tells LINK-80 that the program is a main 
program. Without <exp>, LINK-80 takes assembly 
language programs as subroutines. If you link only 
assembly language programs and none contains an END 
statement with <exp>, LINK-80 will ask for a main 
program. If you link two or more programs with END 
<exp> statements, LINK-80 cannot distinguish which 
should be the main program. If you want to link two 
Or more main programs, use the /G:Name or 
/E:Name switches in LINK-80. The "Name" will be 
the <exp> of the END statement for the program you 
want to serve as the main program. 


If any high-level language program is loaded with 
assembly language modules, LINK-80 takes’ the 
high-level language program as the main program 
automatically. Therefore, if you want an assembly 
language module executed before the high-level 
language program, use the /G:Name or /E:Name switch 
in LINK-80 to set the assembly language module as 
the beginning of the program. As an alternative, we 
recommend that you place a CALL or INCLUDE 
statement at the beginning of the high-level 
language program, and call in the assembly 
language program for execution prior to execution 
of the high-level language program. 
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Include 


INCLUDE <filename> 
SINCLUDE <filename> 
MACLIB <filename> 


All three pseudo-ops are synonomous. 


These Include pseudo-ops insert source code from an 
alternate assembly language source file into the 
Current source file during assembly. Use of an 
Include pseudo-op eliminates the need to repeat an 
often-used sequence of statements in the current 
source file. 


The <filename> is any valid file specification for 


the operating system. If the filename extension 
and/or device designation are other than the 
default, source €ilename specifications must 
include them. The default filename extension for 
source files is .MAC. The default device 
designation is the currently logged drive or 
device. 


The included file 1s opened and assembled into the 
current source file immediately following the 
Include pseudo-op statement. When end-of-file is 
reached, assembly resumes with the next statement 
following Include pseudo-op. 


Nested Includes are not allowed. If encountered, 
they will result in an objectionable syntax error, 
QO. 


The file specified in the operand field must exist. 
If the file is not found, the error V (value error) 
is returned, and the Include 1S ignored. The Vv 
error is also returned if the Include filename 
extension 1s not .MAC. 


On a MACRO-80 listing, the letter C 18. printed 
between the assembled code and the source line on 
each line assembled from an included file. See the 
Listing Control Pseudo-op section below for a 
description of listing file formats. 
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Name Module 
NAME ('modname') 


Name defines a name for the module. The 
parentheses and quotation marks around modname are 
required. Only the first $1x characters are 
Significant in a module name. 


A module name may also be defined with the TITLE 
pseudo-op. In the absence of both the NAME and 
TITLE pseudo-ops, the module name is created from 
the source filename, 

Radiy 


~-RADIX <exp> 


The <exp> in a .RADIX statement is always a decimal 
numeric constant, regardless of the current radix. 


The default input radix (or base) for all constants 


1s decimal. The .RADIX pseudo-op allows you to 
change the input radix to any base in the range 2 
to 16. 


~.RADIX does not change the radix of the listing; 
rather, it allows you to input numeric values in 
the radix you choose without special notation. 
(Values in other radixes still require the special 
notations described in Section 3.4.1.) Values in 
the generated code remain in hexadecimal radix. 


EXAMPLE: 

DEC: DB 20 
-RADIX 2 

BIN: DB 00011110 
-RADIX 16 

HEX : OB OCF 
.RADIX 8 

OCT : OB 73 
RADIX 10 

DECI: DB 16 

HEXA: DB OCH 
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assembles as: 


0000° 14 DEC: DB 20 

0002 ~RADIX 2 

000l' IE BIN: DB 00011110 
0010 ~-RADIX 16 

0002‘ CF HEX: DB OCF 

0008 -RADIX 8 

0003' 38 OCT: OB 73 

OOOA -RADIX 10 

0004° 10 DECI: DB 16 

0005° 0c HEXA: DB OCH 


Request 
-REQUEST <filename>[(,<filename>...) 


When you run LINK-80, .REQUEST sends a_ request to 
the LINK-80 linking loader to search the filenames 
in the list for undefined external symbols. If 
LINK-80 finds any undefined external symbols 
(external symbols for which a corresponding PUBLIC 
symbol is not currently loaded), you will know that 
you need to load one or more additional modules to 
complete linking. 


The filenames in the list should be in the form of 
legal symbols. <filename> should not include a 
filename extension or device designation. LINK-80 
assumes the default extension (.REL) and the 
currently logged disk drive. 


EXAMPLE: 


-REQUEST SUBR1 


LINK-80 will search SUBR1 for external symbols 
which do not have corresonding PUBLIC symbol 
definitions declared among the currently loaded 
modules. 
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LISTING 


Listing pseudo-ops perform two general functions: format 
control and listing control. Pormat control pseudo-ops 
allow the programmer to insert page breaks and direct page 
readings. Listing control pseudo-ops turn on and off the 
listing of all or part of the assembled file. 


Format Control 


These pseudo-ops allow you to direct page breaks, titles, 
and subtitles on your program listings. 


Form Feed 


* ‘*EJECT [<exp>] 
PAGE <exp> 
S EJECT 


The form feed pseudo-ops cause the assembler to 
start a new output page. The assembler puts a form 
feed character in the listing file at the end of 
the page. 


The value of <exp>, if included, becomes the new 
page size (measured in lines per page) and must be 
in the range 10 to 255. The default page size is 
50 lines per page. 


EXAMPLE: 


*EJECT 58 


The assembler causes the printer to start a new 
page every time 58 lines of program have been 
printed. 
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Title 
TITLE <text> 


TITLE specifies a title to be listed on the first 
line of each page. If more than one TITLE is 
given, a Q error results. The first six characters 
of the title are used as the module name, unless a 
NAME pseudo-op is used. (If neither a TITLE nor a 
NAME pseudo-op is used, the module name is created 
from the source filename.) 


EXAMPLE: 


TITLE PROG] 


The module name is now PROG]. The module may be 
called by this name, which will be printed at the 
top of every listing page. 


Subtitle 


SUBTTL <text> 
STITLE (‘'<text>') 


SUBTTL specifies a subtitle to be listed in each 
page heading on the line after the title. The 
<text> is truncated after 60 characters. 


Any number of SUBTTLS may be given in a _= program. 
Each time the assembler encounters SUBTTL, it 
replaces the <text> from the previous SUBTTL with 
the <text> from the most recently encountered 
SUBTTL. To turn off SUBTTL for part of the output, 
enter a SUBTTL with a null string for <text>. 


EXAMPLE: 


SUBTTL SPECIAL I/O ROUTINE 


e - 


SUBTTL 
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The first SUBTTL causes the subtitle SPECIAL I/0 
ROUTINE to be printed at the top of every page. 
The second SUBTTL turns off subtitle (the subtitle 
Line on the listing is left blank). 


General Listing Control 


.LIST - List all lines with their code 
.XLIST - Suppress all listing 


.LIST 1S the default condition. If you specify a 
listing file in the command line, the file will be 
listed. 


When .XLIST 18S encountered in the source file, 
source and object code will not be listed. .XLIST 
remains in effect until a .LIST 18S encountered, 


-XLIST overrides all other listing control 
pseudo-ops. So, nothing will be listed, even if 
another listing pseudo-op (other than .LIST) iS 
encountered. 


EXAMPLE: 
-XLIST ;listing suspended here 
. LIST ;listing resumes here 


Print At Terminal 
.PRINTX <delim><text><delim> 


The first non-blank character encountered atter 
-PRINTX is the delimiter. The following text is 
listed on the terminal during assembly until 
another occurrence of the delimiter is encountered. 
.PRINTX is useful for displaying progress through a 
long assembly or for displaying the value of 
conditional assembly switches. 


.PRINTX will output on both passes. If only one 
printout is desired, use the IFl or IF2 pseudo-op, 
depending on which pass you want displayed. See 
the Conditional pseudo-ops for IFl and IF2. 
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EXAMPLE: 
.PRINTX *Assembly half done* 


The assembler will send this message to the 
terminal screen when encountered. 


IFl 
.PRINTX *Pass 1 done* ;pass 1 message only 
ENDIF 


IF2 
.PRINTX *Pass 2 done* ;pass 2 message only 
ENDIF 


Conditional Listing Control 


The three conditional listing control pseudo-ops are used to 
Specify whether or not you wish statements contained within 
a false conditional block to appear on the listing. See 
also the description of the /X switch. 


Suppress False Conditionals 
. SFCOND 


.SFCOND suppresses the portion of the listing that 
contains conditional expressions that evaluate as 
false. 


List False Conditionals 


. LFCOND 


.LFCOND assures the listing of conditional 
expressions that evaluate false. 


Toggle False Listing Conditional 
. TF COND 


.TFCOND toggles the current” setting. . TF COND 
operates independently from .LFCOND and .SFCOND. 
.TFCOND toggles the default setting, which is set 
by the presence or absence of the /X switch in the 
assembler command line. When /X 18 present, 
-TFCOND will cause false conditionals to list. 
When /X is not given, .TFCOND will suppress’ false 
conditionals. 
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Macro Expansion Listing Control 


Expansion listing pseudo-ops control the listing of lines 
inside macro and repeat pseudo-op (REPT, IRP, IRPC) blocks, 
and may be used only inside a macro or repeat block. 


Exclude Non-code Macro Lines 
-XALL -XALL is the default. 


.XALL lists source code and object code produced by 
a macro, but source lines which do not generate 
code are not listed. 


List Macro Text 


» LALL -.LALL lists the complete macro text for all 
expansions, including lines that do not generate 
code. 


Suppress Macro Listing 


~» SALL .SALL suppresses listing of all text and object 
code produced by macros. 


CREF Listing Control Pseudo-ops 


You may want the option of generating a cross’ reference 
listing for part of a program but not all of it. To control 
the listing or suppressing of cross references, use the 
cross reference listing control pseudo-ops, .CREF and 
pseudo-ops may be entered at any point in the program in the 
OPERATOR field. Like the other listing control pseudo-ops, 


Suppress Cross References 

.XCREF .XCREF turns off the .CREF (default) pseudo-op. 
.XCREP remains in effect until MACRO-80 encounters 
.CREF. Use .XCREP to suppress the creation of 
cross references in selected portions of the file. 
Because neither .CREF nor .XCREF takes effect until 
the /C switch is set in the MACRO-80 command line, 
there is no need to use .XCREF if you want the 
usual List file (one without cross references); 
simply omit /C from the ALDS assembler command 
line. 
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List Cross References 


. CREF -CREF is the default condition. Use .CREF to 
restart the creation of a cross reference file 
after using the .XCREF pseudo-op. .CREF remains in 
effect until MACRO-80 encounters .XCREF. Note, 
however, that .CREF has no effect until the /C 
Switch is set in the MACRO-80 command line. 


4.2 MACRO FACILITY 


The macro facility allows you to write blocks of code which 
can be repeated without recoding. The blocks of code begin 
with either the macro definition pseudo-op or one of the 
repetition pseudo-ops and end with the ENDM pseudo-op. All 
of the macro pseudo-ops may be used inside a macro block. 
In fact, nesting of macros is limited only by memory. 


The macro facility of the MACRO-80 macro assembler includes 
pseudo-ops for: 


macro definition: 
MACRO 


repetitions: 
REPT (repeat) 
IRP (indefinite repeat) 
IRPC (indefinite repeat character) 


termination: 


ENDM 
EXITM 
unique symbols within macro blocks: 
LOCAL 
The macro facility also Supports some Special macro 
operators: 
& 
7 
% 
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Macro Definition 


<name> MACRO <dummy>[,<dummy>...] 


ENDM 


The block of statements from the MACRO statement 
line to the FNDM statement line comprises the body 
of the macro, or the macro's definition. 


<name> 1S like a LABEL and conforms to the rules 
for forming symbols. Note that <name> may be any 
length, but only the first 16 characters are passed 
to the linker. After the macro has been defined, 
<name> is used to invoke the macro. 


A <dummy> 1s a place holder that 1s replaced by a 
parameter in a one-for-one text substitution when 
the MACRO block 18 used. Each <dummy> may be up to 
32 characters’ long. The number of dummys is 
limited only by the length of a line. If you 
specify more than one dummy, they must be separated 
by commas. MACRO-80 interprets all characters 
between commas as a single dummy. 


NOTE 
A dummy is always recognized exclusively as 
a dummy. Even if a register name (such as 
A or B) 18S used aS a dummy, it will be 


replaced by a parameter during expansion. 


A macro block 18 not assembled when it is 
encountered. Rather, when you call a macro, the 
assembler "expands”™ the macro call statement by 
bringing in and assembling the appropriate macro 
block. 


If you want to use the TITLE, SUBTTL, or NAME 
pseudo-ops for the portion of your program where a 
macro block appears, you should be careful about 
the form of the statement. If, for example, you 
enter SUBTTL MACRO DEFINITIONS, MACRO-80 will 
assemble the statement as a macro definition with 
SUBTTL as the macro name and DEFINITIONS as_ the 
dummy. To avoid this problem, alter the word MACRO 
in some way; e.g., - MACRO, MACROS, and so on. 
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Calling a Macro 


To use a macro, enter a macro call statement: 
<name> <parameter>[,<parameter>...] 


<name> is the <name> of the MACRO block. A 
<parameter> replaces a <dummy> on a one-for-one 
basis. The number of parameters is limited only by 
the length of a line. If you enter more than one 
parameter, they must be separated by commas. If 
you place angle brackets around parameters 
separated by commas, the assembler will pass all 
the items inside the angle brackets as a single 
parameter. For example: 


FOO 1,2,3,4,5 

passes five parameters to the macro, but: 
FOO <1,2,3,4,5> 

passes only one. 


The number of parameters in the macro call 
statement need not be the same as the number of 
dummys in the MACRO definition. If there are more 
parameters than dummys, the extras are ignored. If 
there are fewer, the extra dummys will be made 
null. The assembled code will include the macro 
block after each macro call statement. 


EXAMPLE: 
EXCHNG MACRO X,Y 
PUSH X 
PUSH Y 
POP X 
POP Y 
ENDM 


If you then enter as part of a program some _ code 
and a macro call statement: 


LDA 2FH 
MOV HL,A 
LDA 3 FH 
MOV DE,A 


EXCHNG HL, DE 
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assembly generates the code: 


0000° 3A 002F LDA 2FH 
0003° 67 MOV HL,A 
0004' 3A 003F LDA 3FH 
0007' 57 MOV DE,A 
EXCHNG HL,DE 
0008 ES + PUSH HL 
0009' DS + PUSH DE 
OOOA' El + POP HL 
OO0B' Dl + POP DE 
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Repeat Pseudo-ops 


The pseudo-ops in this group allow the operations ina block 
of code to be repeated for the number of times you specify. 
The major differences between the Repeat pseudo-ops= and 
MACRO pseudo-op are: 


1. MACRO gives the block a name by which to call in 
the code wherever and whenever needed; the macro 
Dlock can be used in many different programs by 
Simply entering a macro call statement. 


2. MACRO allows parameters to be passed to the MACRO 
block when a MACRO is called; hence, parameters 
can be changed. 


Repeat pseudo-op parameters must be assigned as a part of 
the code block. If the parameters are known in advance and 
will not change, and if the repetition is to be performed 
for every program execution, then Repeat pseudo-ops are 
convenient. With the MACRO pseudo-op, you must call in the 
MACRO each time it 1s needed. 


Note that each Repeat pseudo-op must be matched with the 
ENDM pseudo-op to terminate the repeat block. 


Repeat 
REPT <exp> 
ENDM 
Repeat block of statements between REPT and ENDM 
<exp> times. <exp> is evaluated as a 16-bit 
unsigned number. If <exp> contains an_ External 
symbo l or undef ined operands, an error 185 
generated. 
EXAMPLE: 
X SET 0 
REPT 10 sgenerates 0B l - DB 10 
X SET X+1 
DB X 
ENDM 
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assembles as: 


0000 X SET ) 
REPT 10 ;generates DB 1 - DB 10 
X SET X+1 
DB X 
ENDM 
0000' Ol + DB X 
0001‘ O2 + DB X 
0002' 03 + DB X 
0003' 04 + DB X 
0004' O05 + DB X 
0005' 06 + DB X 
0006' O7 + DB X 
0007' O08 + DB X 
0008' 09 + DB X 
0009' OA + DB X 
END 


Indefinite Repeat 


IRP <dummy>,<parameters inside angle brackets> 


KNDM 


Parameters must be enclosed in angle brackets. 
Parameters may be any legal symbol, string, 
Numeric, or character constant. The block of 
Statements 1S repeated for each parameter. Each 
repetition substitutes the next parameter for every 
occurrence of <dummy> in the block. If a parameter 
is null (1.e., <>), the block is processed once 
with a null parameter. 


EXAMPLE: 
IRP X,<1,2,3,4,5,6,7,8,9,10> 
DB X 
ENDM 
This example generates the same bytes (DB 1 - DB 


10) as the REPT example. 
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When IRP is used inside a MACRO definition block, 
angle brackets around parameters in the macro call 
statement are removed before the parameters are 
passed to the macro block. An example, which 
generates the same code as above, illustrates the 
removal of one level of brackets from the 


parameters: 
FOO MACRO X 
IRP Y,<X> 
DB Y 
ENDM 
ENDM 


When the macro call statement 
FOO <1,2,3,4,5,6,7,8,9,10> 


is assembled, the macro expansion becomes: 


IRP Y,<1,2,3,4,5,6,7,8,9,10> 
DB Y 
ENDM 


The angle brackets around the parameters are 
removed, and all items are passed as a single 
parameter. 


Indefinite Repeat Character 


IRPC <dummy> ,<string> 


ENDM 


The statements in the block are repeated once for 
each character in the string. Each repetition 
substitutes the next character in the string for 
every occurrence of <dummy> in the block. 


EXAMPLE: 
IRPC X,0123456789 
DB X+1 
ENDM 


This example generates the same code (DB 1 - DB 10) 
as the two previous examples. 
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Termination 


End Macro 
ENDM 


ENDM tells the agsembler that the MACRO or _ Repeat 
block is ended. 


Every MACRO, REPT, IRP, and IRPC must be terminated 
with the ENDM pseudo-op. Otherwise, the 
'Unterminated REPT/IRP/IRPC/MACRO' message is 
generated at the end of each pass. An unmatched 
ENDM causes an O error. 


If you wish to be able to exit from a MACRO or 
repeat block before expansion is completed, use 
EXITM. 


Exit Macro 
EXITM 


The EXITM pseudo-op is used inside a MACRO or 
Repeat block to terminate an expansion when some 
condition makes the remaining expansion unnecessary 
or undesirable. Usually EXITM is used in 
conjunction with a conditional pseudo-op. 


When an EXITM is assembled, the expansion 18s exited 
immediately. Any remaining expansion or repetition 
is not generated. If the block containing the 
EXITM is nested within another block, the outer 
level continues to be expanded. 


EXAMPLE: 

FOO MACRO xX 

Y SET 0 
REPT X 

Y SET Y+] 
IPE Y-OFFH ;test Y 
EXITM ;if true, exit REPT 
ENDIF 
DB Y 
ENDM 
ENDM 
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Macro Symbol 


LOCAL <dummy>[(,<dummy>...] 


Page 4-3] 


The LOCAL pseudo-op is allowed only inside a MACRO 
definition block. 


and 


the <dummy> in the expansion. 


When 


LOCAL 
assembler creates a unique symbol for each 


is executed, the 


<dummy > 


Substitutes that symbol for each occurrence of 


These unique symbols 


are usually used to define a label within a macro, 
thus aliminating multiple-defined labels on 
successive expansions of the macro. The symbols 
Created by the assembler range from ..0001 to 
. FPFF, Users should avoid the form ..nnnn for 
their own symbols. A LOCAL statement must precede 
all other types of statements in the macro 
definition. For example: 
FOO MACRO NUM,Y 
LOCAL A,B,C,D,E 
A: DB 7 
B; DB 8 
Cs DB Y 
D: DB Y+1 
E: DW NUM+1 
IMP A 
ENDM 
FOO 0cO0H,OBEH 
END 
generates the following code (notice that MACRO-80 


has 


substituted LABEL names in the form 


..nonn for 


the instances of the dummy symbols): 


0000° 
0001° 
0002’ 
0003' 
0004° 
0006' 


07 

08 

BE 

BP 

ocol 

C3 0000° 


FOO 


in UC) WO Y 


+++++ + 


-0000: 
.O001: 
.0002: 
0003: 
0004: 


NUM ,Y 
A,B,C,0,£ 
7 

8 

Y 

Y+] 

NUM~+] 

A 


0OCO0H,OBEH 
7 

8 

OBEH 
OBEH+1 
OcO0OH+1 
..6900 
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Special Macro Operators 


Several special operators can be used in a macro block to 
select additional assembly functions. 


& Ampersand concatenates text or symbols. (The & may 
not be used ina macro call statement.) A dummy 
parameter in a quoted string will not be 
substituted in expansion unless preceded 


immediately by &. To form a symbol from text and a 
dummy, put & between them, 


For example: 


ERRGEN MACRO X 
ERROR&X: PUSH B 
MVI B,'&X' 
JMP ERROR 
ENDM 


The call ERRGEN A will then generate: 


ERRORA: PUSH B 
MVI B,'A' 
JMP ERROR 


In a block operation, a comment preceded by two 
semicolons is not saved as a part of the expansior 
(l.e., 1t will not appear on the listing even under 
.~LALL) . A comment preceded by only one semicolon, 
however, will be preserved and appear in th» 
expansion, 


t An exclamation point may be entered in an argument 
to indicate that the next character is to be taken 
literally. Therefore, !; 18S equivalent to <;>. 


% The percent sign is used only 1nN a macro argument 
to convert the expression that follows it (usually 
a symbol) to a number in the current radix (set by 
the .RADIX pseudo-op). During macro expansion, the 
number derived from converting the expression is 
substituted for the dummy. Using the % special 
Operator allows a macro call by value. (USually, a 
macro call is a call by reference with the text of 
the macro argument substituting exactly for the 


dummy .) 
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The expression following the % must conform to the 
game rules as expressions for the DS (Define Space) 
pseudo-op. That is, a valid expression that 
evaluates to an absolute (non-relocatable) constant 
ls required. 


OXAMFLE: 
PRINTS MACRO MSG,N 
.PRINTX * MSG,.N * 
ENDM 
SYM1 EQU 100 
SYM2 EQU 200 


PRINTE <SYMl1 + SYM2 = >,%(SYML + SYM2) 
Normally, the macro call statement would cause the 
string (SYM1 + SYM2) to be substituted for the 
dummy N. The result would be: 
.PRINTX * SYM1 + SYM2 = (SYM1 + SYM2) 


When the & is placed in front of the parameter, the 
assembler generates: 


- PRINTX * SYM1 + SYM2 = 300 * 


4.3 CONDITIONAL ASSEMBLY FACILITY 


Conditional pseudo-cps allow users tec design blocks of code 
@nmich s4st for specific conditions then croceed accordingly. 


Milo osconmditionals follow the format: 
cE xXxXxx {| Argument; COND (argument } 
(ELSE {ELSE 

| J 
ENDIF ENDC 
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Each IFxxxx must have a matching ENDIF to terminate the 
conditional. Each COND must have a matching ENDC to 
terminate the conditional. Otherwise, an ‘Unterminated 
conditional’ message is generated at the end of each pass. 
An ENDIF without a matching IF or an ENDC without a matching 
COND causes a C error. 


The assembler evaluates the conditional statement to TRUE 
(which equals FFFFH, or -1l, or any non-zero value), or to 
PALSE (which equals 0000H). The code in the conditional 
block is assembled if the evaluation matches the condition 
defined in the conditional statement. If the evaluation 
does not match, the assembler either ignores the conditional 
block completely or, if the conditional block contains the 
optional ELSE statement, assembles only the ELSE portion. 


Conditionals may be nested up to 255 levels. Any argument 
to a conditional must be known on pass 1 to avoid V errors 
and incorrect evaluation. For IF/IFT/COND and IFF/IFE the 
expression must involve values which were previously 
defined, and the expression must be Absolute. If the name 
is defined after an IFDEF or IFNDEF, pass 1 considers the 
name to be undefined, but it will be defined on pass 2. 


Each conditional block may include the optional ELSE 
pseudo-op, which allows alternate code to be generated when 
the opposite condition exists. Only one ELSE is permitted 
for a given IFxxxx/COND. An ELSE is always bound to the 
most recent, open IF. A conditional with more than one ELSE 
or an ELSE without a conditional will cause a C error. 


Conditional Pseudorops 


IF <exp> 
IFT <exp> 
* COND <exp> 


If <exp> evaluates to not-0, the statements within 
the conditional block are assembled. 


IFE <exp> 
IFF <exp> 


If <exp> evaluates to 0, the statements in the 
conditional block are assembled. 
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IFl Pass l Conditional 
If the assembler is in pass l, the statements in 
the conditional block are assembled. 

IF 2 Pass 2 Conditional 
If the assembler is in pass 2, the statements in 
the conditional block are assembled. 

IFDEF <symbol> 
If the <symbol> is defined or has been declared 
External, the statements in the conditional block 
are assembled. 

IFNDEP <symbol> 
If the <symbol> is not defined or not declared 
External, the statements in the conditional block 
are assembled. 

IFB <arg> 
The angle brackets around <arg> are required. 
If the <arg> is blank (none given) or null (two 
angle brackets with nothing in between, <>), the 
Statements in the conditional block are assembled. 

IFNB <arg> 


The angle brackets around <arg> are required. 


If <arg> is not blank, the statements in the 
conditional block are assembled. Used for testing 
for dummy parameters. 


IFIDN <argl>,<arg2> 


The angle brackets around <argl> and <arg2> are 
required. 


If the string <argl> is identical to the string 
<arg2>, the statements in the conditional block are 
assembled. 
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IFDIF <argl>,<arg2> 


The angle brackets around <argl> and <arg2> are 
required. 


If the string <argl> is different from the string 
<arg2>, the statements in the conditional block are 
assembled. 


ELSE 
The ELSE pseudo-op allows you to generate alternate 
code when the opposite condition exists. May be 
used with any of the conditional pseudo-ops. 
ENDIF 
* ENDC 
These pseudo-ops terminate conditional blocks. A 


terminate pseudo-op must be given for every 
conditional pseudo-op used. ENDIF must be matched 
with an IFxxxx pseudo-op. ENDC must be matched 
with the COND pseudo-op. 
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SECTION 5 


RUNNING MACRO-80 


When you have completed creating the assembly ianguage 
Source file, you are ready to assemble it.  “ACRO-80 
assembles the source file statements, including expanding 
macros and repeat pseudo-ops. The result of assembly will 
be relocatable object code which is ready to link and load 
with LINK-80. The relocatable object code can be saved ina 
disk file, which the assembler gives the filename extension 
The file will be executable only after it is processed 
through LINK-80. 


MACRO-80 resides in approximately 19K of memory and has an 
assembly rate of over 1000 lines per minute. MACRO-80 runs 
under the CP/M operating system. 


MACRO-80 assembles your source file in two passes. During 
pass l, MACRO-80 evaluates the program statements, 
calculates how much code it will generate, builds a _esymbol 
table where all symbols are assigned values, and expands 
macro call statements. During pass 2, MACRO-80 fills in the 
symbol and expression values from the symbol table, again 
expands macro call statements, and emits the _ relocatabie 
code, MACRO-80 checks the values of symbols, expressions, 
and macros during both passes. If a value during pass 2 is 
different from the value during pass 1, MACRO-80 returns a 
phase error code, 


Before MACRO-80 can be run, the diskette which contains 
MACRO-80 must be inserted in the appropriate dis« driv>. 
The diskette on which you created the source file must also 
be in a disk drive. 
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5.1 INVOKING MACRO-80 
To invoke MACRO-80, enter: 
M80 


The program file M80.COM will be loaded. MACRO-80 will 
display an asterisk (*) to indicate that the assembler is 
ready to accept a command line. 


5.2 MACRO-80 COMMAND LINE 


The command line for MACRO-80 consists of four fields, 
labeled: 


Object ,ListzSource/Switch 


The command line may be entered on its own line, or it may 
be entered at the same time as the M80 command. (If M80 and 
the command line are entered on one line, MACRO-80 will not 
return the asterisk prompt.) Entering the command line on 
its own line allows single drive configurations to use 
MACRO-80. In addition, by entering M80 and the command line 
separately, you are able to perform another assembly without 
reinvoking MACRO-80. When assembly is finished, MACRO-80 
will return the asterisk (*) prompt and wait for another 
command line. To exit MACRO-80 when you have entered M80 
and the command line separately, type <CTRL-C©. 


If you are performing only one assembly, entering the 
command line on the same line as M80 is convenient; it 
requires less typing and allows the assembly operation to be 
part of a SUBMIT command. When you enter M80 and the 
command line together, MACRO-80 exits automatically to the 
operating system. 


NOTE 


If you enter M80 and the 
command line separately, you 
must enter the command line in 
upper case only. If you do 
not, MACRO-80 will return a 
?Command Error message. If 
you enter M80 and the’ command 
line on one line, the entries 
may be in either upper or 
lower case (or mixed) because 
CP/M converts all entries to 
upper case before passing the 
entries. 


Utility Software Reference Manual Page 5-3 


Source (=filename) 


To assemble your source program, you must enter at least an 
equal sign (=) and the source filename. 


The =filename indicates which source file you want to 
assemble. If the source file disk is not in the currently 
logged drive, you must include the drive designation as part 
of the filename. If the source filename is entered without 
an extension, MACRO-80 assumes that the extension 1S .MAC. 
If the extension 1S not .MAC, you must include the extension 
as part of the filename. For other possibilities for 
drive/device designations and filename extensions, see the 
Additional Command Line Entries section, below.) 


The Source entry 18 the only entry required besides M80. 
The simplest command is: 

M80 =Source 
This command directs MACRO-80 to assemble the source file 
and save the result ina relocatable object file (called a 
REL file) with the same name as the source file. If the 


source file is NEIL.MAC, the command line: 


M80 =NEIL 
generates an assembled file named NEIL.REL. 


An additional option is to enter only a comma (,) to the 
left of the equal sign. When MACRO-80 sees a comma as the 
first entry after the M80 entry, it suppresses all output 
files (Object and List). The command line 


M80 ,=NEIL 


causes MACRO-80 to assemble the file NEIL.MAC, but no output 


files are created. Programmers use this command line to 
check syntax in the source program before saving the 
assembled program. Because no files are generated, tne 


assembly is completed faster and errors are known sooner. 


Object (filename) 
An Object entry is always optional. However, certain 


circumstances will compel you to make some entry for the 
Object. 
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The Object file saves the assembled program ina disk file. 
LINK-80 uses the Object file to create an executable 
program. If both Object and List entries are omitted from a 
command line (as in Source), MACRO-80 will generate an 
Object file with the same filename as the Source, but with 
the default extension .REL. 


If you want your Object file to have a name different from 
the source file, you must enter a filename in the Object 
field. MACRO-80 will still append the filename extension 


Also, if you want both a List file and a REL file generated, 
you must enter a filename for the Object, even if you want 
the REL file named after the source file. If you enter a 
filename for the List but omit the Object, no REL file will 
be generated. Programmers do use this feature for checking 
the program for errors before final assembly. The program 
listing aids debugging. 


The name for the Object file may be the same as the _ source 
filename or any other legal filename you choose. Since it 
1S practical to have all files which relate to a program 
Carry some mutual indication of their relationship, most 
often you will want to give your object file the same name 
as your source file. 


List (,filename) 


A List entry 18S always optional. The comma isS_ required in 
front of all List entries. If you want a List file, enter a 
,f£ilename for the List. (There is an alternative to this 
rule, See the Switches section below for discussion of the 
/L switch.) 


MACRO-80 appends the default extension .PRN to the List file 
unless you specify a different extension in the List entry. 


The command line: 
MBO ,NEI L=NEIL 


assembles the file NEIL.MAC (source file) and creates the 
List file NEIL.PRN. An Object (REL) file is not created. 


The name may be the same as the source filename or any other 
legal filename you choose. Since it is practical to have 
all files which relate to a program carry some mutual 
indication of their relationship, most often you will want 
to give your listing file the same name as your source file. 
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Avoid entering only a comma for the List after entering a 
filename for the Object. Por example: 


M80 NEIL, =NEIL 


MACRO-80 will probably ignore the comma and assemble _ the 
source file into a REL file. It is possible that MACRO-80 
might return a COMMAND ERROR message. 


If you enter only a comma for the List and nothing for the 
Object, MACRO-80 will assemble the source file, but will 
generate no output files. This command 


M80 ,=Source 


allows you to check the source program for syntax errors 
before saving the assembled program in a disk file. While 
MACRO-80 always checks for errors, this command form 
provides much faster assembly because the output files do 
not have to be created. 


At the end of assembly, MACRO-80 will print the message: 
(xxJ)(No] Fatal errors [,xx warnings) 


This message reports the number of fatal errors and warning 
errors encountered in the program. The message is listed at 
the end of every assembly on the terminal screen and in the 
listing file. When the message appears, the assembler has 
finished. When the message No Fatal Errors appears, the 
assembly is complete and successful. 


Switches (/Switch) 


You can command MACRO-80 to. perform some additional 
functions besides assembling and creating object and listing 
files. These additional commands are given to MACRO-80 as 
entries at the end of the command line. A Switch entry 
directs MACRO-80 to "switch on® some additional or alternate 
function; hence, these entries are called switches. 
Switches are letters preceded by slash marks (/). Any 
number of switches may be entered, but each switch must be 
preceded by a slash. For example: 


M80 ,=NEIL/L/R 
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The available switches for MACRO-80 are: 


Switch Action 
/O Octal listing. MACRO-80 generates List file 


addresses in octal radix. 


/H Hexadecimal listing. MACRO-80 generates List file 
addresses in hexadecimal. This is the default. 


/R Force generation of an Object file with the same 
name as the source file. May be used instead of 
giving a filename in the Object field of the 
command line. 


This switch is convenient when you want a REL file 
but forgot to enter a filename in the Object field 
and entered a comma and filename or a comma only 
in the List field. (Remember: if no filenames or 
comma is entered before the equal sign, a REL file 
igs generated.) Thus, if you enter 


M80 ,NBIL2NEIL 
or M80 ,#NEIL 


then decide, before pressing <ENTER>, that you 
want a REL file, simply add /R. The command line 
would then be: 


M80 ,NEIL=NEIL/R 
or M80 ,=NEIL/R 


/L Porce generation of a listing file with the same 
name as the source file. May be used instead of 
giving a filename in the List field of the command 
line. 
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This switch is convenient when you want a List 
file but forgot to enter a filename in the List 
field. If you enter the command line: 


M80 =NEIL 
or M80 ,=NEIL 
or M80 NEIL=NEIL 


then decide, before pressing <ENTER>, that you do 
want a List file, simply add /L. The command 
would then be: 


M80 =NEIL/L 
or M80 ,=NEIL/L 
Or M80 NEIL=NEIL/L 


/C Causes MACRO-80 to generate a Special List file 
(with the same name as the Source file) for uSe 
with CREF-80 Cross Reference Facility. If you 


want to use CREF-80, you must assemble your file 
with this switch set. See the Section discussing 
the CREF-80 Cross Reference Facility for further 
details. 


{2 Directs MACRO-80 to assemble 280 opcodes. If your 
source file contains 280 opcodes and if you do not 
include the .280 pseudo-op in your source file, 
then you must use the /Z switch at assembly time 
so that MACRO-80 will assemble the 280 opcodes. 


/1 Directs MACRO-80 to assemble 8080 opcodes. If 
your source file contains 8080 opcodes and if you 
do not include the .8080 pseudo-op in your source 
file, then you must use the /I switch at assembly 
time so that MACRO-80 will assemble the 8080 
opcodes. (Default) 


/P Each /P allocates an extra 256 bytes of stack 
space for use during assembly. Use /P if stack 
overflow errors occur during assembly. Otherwise, 
/P is not needed. 
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/M The /M Switch initializes Block data areas. If 
you want the area that is defined by the DS 
(Define Space) pseudo-op initialized to zeros, 
then you should use the /M switch in the command 
line. Otherwise, the space is not guaranteed to 
contain zeros. That is, DS does not automatically 
initialize the space to zeros, in which case you 
may not Know what 1S stored in the DS space or how 
the program will be affected. 


/X The /X switch sets the default and current setting 
to suppress the listing of false conditionals. 
Absence of /X in the command line sets the default 
and current setting to list conditional blocks 
which evaluate false. /X¥ is often used in 
conjunction with the conditional listing pseudo-op 
.-TFCOND. Refer to the Listing Pseudo-ops = section 
in Section 4 for details. 


Additional Command Line Entries 


Each command line field supports two additional types of 
entries--filename extensions and device designations. These 
two types of entries are actually part of a "file 
specification." A file specification includes the device 
where a file is located, the name of the file, and the 
filename extension. 


Jsually, filename extensions and device designations are 
handled by defaults--the MACRO-80 program “inserts” these 
entries if their positions are left blank in a command line. 
The default assignments in no way prevent you from entering 
either filename extensions or device designations, including 
entries that match the default entries. The programmer inay 
enter or omit these additional entries in any combination. 


The format for a file specification under MACRO-80 is: 
dev:filename.ext 


where: dev: is a1-3 letter device designation followed by 
a (required) colon. 


filename is a1-8 letter filename. 


.ext is a 1-3 character filename extension preceded 
by a (required) period. 
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Filename Extensions (.ext) 


To distinguish between Source file, Object file, and List 
file, MACRO-80 appends an extension to each filename. 
Filename extensions are three-letter mnemonics appended to 
the filename with a period (.) between the filename and the 
extension, The extension which MACRO-80 appends’ reflects 
the type of file. Since the extensions are supplied by 
MACRO-80, they are called default extensions. The default 
extensions which MACRO-80 supplies are: 


.REL Relocatable object file 
. PRN Listing file 
. COM Absolute (executable object) file 


Also, MACRO-80 assumes that, if no filename extension is 
entered, a source file carries the filename extension .MAC. 


You may supply your own extensions, if you find this 
necessary or desirable. The disadvantage is that whenever 
you call the file, you must always remember to include your 
extension. Also, you must remember what type of file it 
is--relocatable, source, absolute, etc. The advantage of 
allowing MACRO-80 to assign default extensions is that you 
always have a mnemonic indication of the type of file, and 
you can call the filename without appending the extension, 
lin most cases. 


Device Designations (dev:) 


Each of the fields in a command line (except '§ Invocation) 
also may include a device designation. 


When a device designation is specified in the Source field, 
the designation tells MACRO-80 where to find the source 
file. When a device designation is specified in the Object 
or List fields, the designation tells MACRO-80 where to 
output the object or list file. If the device designation 
is omitted from any of these fields, MACRO-80 assumes 
(defaults to) the currently logged drive. Thus, any time 
the device designation is the currently logged drive or 
device, the device designation need not be specified. 


It is important to include device designations if several 
devices or drives will be used during an assembly. For 
example, if your ALDS diskette is in drive A and your 
program diskette is in drive B, and you want your REL file 
output to drive B, you need to give the command line: 


M80 =B:NEIL 
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When the REL file is output, the currently logged drive is 
drive B. (However, when MACRO-80 is finished, drive A will 
be the currently logged drive again.) In contrast, if you 
saved your source program on the MACRO-80 diskette in drive 
A and want the REL file output to a diskette in drive B, 
then you need to enter the command line: 


M80 B:#A:NEIL 
As a rule of thumb, if you are not sure if you need to 
include the device designation (especially the drive 
designation), enter a designation; it is the one sure way 
to get the right files in the right places. 


The available device designations for MACRO-80 are: 


A:, B: Disk drives 
LST: Line Printer 
TTY: Terminal Screen or Keyboard 


Device Designations as Pilenames 


The only acceptable device designation of disk-resident 
files is A: or B:. If you wish to see your program assemble, 
or wish a printout, you may enter the device designation 
TTY: or LST:, respectively, when entering the MACRO-80 
command line as follows: 


M80 ,TTY:=dev: filename 


This allows you to check for syntax or other errors. The 
command M80 ,LST:#dev:filename provides the same result but 
printed on a line printer instead of the terminal screen. 


If you use either of these commands ,TTY:=dev:filename or 
»LST:adev:filename your first entry should be an END 
statement. YOu need to put the assembler into pass 2 before 
it will emit the code. If you simply start entering 
statement lines without first entering END, you will receive 
no response until an END statement is entered. Then you will 
have to reenter all your statements before you see any code 
generated. 


The following table illustrates the results of the various 


choices. The table is meant to indicate the possibilities 
rather than provide an exhaustive list of the combinations. 
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to drive to drive (a filename 
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writes N/A 


(unreadable 
file format) 


listing to 


LST: | N/A 
line printer 


-~----------- $e pe te ee 
TTY N/A "writes" | "reads" source 
(unreadable listing to | program from 
file format) screen keyboard 


Figure 5.1: Effects of Device Designations 
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5.3 MACRO-80 LISTING FILE FORMATS 


A listing of a MACRO-80 file displays the two parts of the 
file in two different formats. One format displays the file 
lines. The second format displays symbol table listings. 


File Format 


Each page of a MACRO-80 listing prints header data in the 
first two lines. If no header data were commanded in the 
source file (neither the TITLE nor SUBTTL pseudo-op was 
jiven), those portions of the header lines are left blank. 


The format 1S: 


{TITLE text] M80 2.22 PAGE x 
{SUBTTL text] 


where: TITLE text is the text supplied with the .TITLE 
pseudo-op, if .TITLE was included in the source 
file. If no .TITLE pseudo-op was given in the 
source file, this space 1s left blank. 
zZ.2Z2 18 the version number of your MACRO-80 program. 


x 1s the page number, which 1s shown and incremented 
only when a _ .PAGE pseudo-op is encountered in the 
source file, or whenever the current page size has 
been filled. 


SUBTTL text 1s the text supplied with the  .SUBTTL 
pseudo-op, if .SUBTTL was included in the source 
file. Lf no .SUBTTL was given in the source f118#, 
this space is lett blank. 


A blank line follows the header data. The text of the 
listing file begins on the next line. 


The format of a listing line is: 
[error] €£EEm xx xxxxm[w) text 


where: error represents a one-letter error code. An error 
code is printed only if the line contains an error. 
Otherwise, the space is left blank. 


€€EE represents the location counter. The number is 
a 4-digit hexadecimal number or a 6-digit octal 
number. The radix of the location counter number is 
determined by the use of the /O or /H switch in the 
MACRO-80 command line Switch field. If no radix 
switch was given, the default radix is hexadecimal 
(4-digit). 
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M represents the PC mode indicator character. The 
possible symbols are: 


‘ Code Relative 


" Data Relative 
! COMMON Relative 
<space> Absolute 
* External 
xx and xxxx represent the assembled code. xX 
represents a one-byte value. One-byte values are 
always followed immediately by a space. XXXX 


represents a two-byte value, with the high-order 
byte printed first (this is the opposite of the 
order in which they are stored). Two-byte values 
are followed by one of the mode indicators discussed 
above (indicated by the second m). 


{w] represents a line in the MACRO-80 file that came 
from another file through an INCLUDE pseudo-op; or 
a line that is part of an expansion (MACRO, REPT, 
IRP, IRPC). For lines from an INCLUDE statement, a 
C is printed following the assembled _ code; for 
lines in an expansion, a plus sign (+) is printed 
following the assembled code. Otherwise, this space 
is blank. 


text represents the rest of the line, including 
labels, operations, arguments, and comments. 


Symbol Table Format 


The symbol table listing page follows the same header data 
format as the file line pages. However, instead of a page 
number, the symbol table page shows PAGE S. Then, in a 
symbol table listing, all macro names in a program 
are listed alphabetically. Next, all symbols are listed, 
also alphabetically. A tab follows each symbol, then 
the value of the symbol is printed. Each symbol value is 
followed by one of the following characters: 


I PUBLIC symbol 
U Undefined symbol 
C COMMON block name. The value shown for the 


COMMON block name is its’ length in bytes in 
hexadecimal or octal radix. 


bd External symbol 


<space> Absolute value 
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‘ Program relative value 
. Data relative value 


! COMMON relative value 
5.4 ERROR CODES AND MESSAGES 


Errocs encountered during assembly cause MACRO-80 to return 
either an error code or an error message. Error codes are 
one-character flags printed in column one of the listing 
file. If a listing file is not being printed on the 
terminal screen, the lines containing errors will 
nevertheless be printed on the terminal screen. Error 
messages are printed at the end of the listing file, or, if 
the listing file is not being displayed on the terminal 
Screen, any error messages will be displayed at the end of 
the error code lines. 


ERROR 
CODE MEANING 


A Argument error. 
The argument to a pseudo-op is not in correct 
format or is out of range. 


—) 


Conditional nesting error. 
ELSE without IF, ENDIF without IF, two ELSEs for 
one IF, ENDC without COND. 


D Double defined symbol. 
Reference to a symbol which has more than one 
definition. 


E External error. 
Use of an External is illegal in the _ flagged 
context. For example, FOO SET NAME or LXI 
B r) 2-NAME. 

M Multiply defined symbol. 
The definition is for a symbol that already has a 
definition. 

N Number error. 


An error ina number, usually a bad digit. Por 
example, 8Q. 
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O Bad opcode or objectionable syntax. 
ENDM, LOCAL outside a block; SET, EQU, or MACRO 
without a name; bad syntax in an opcode; or bad 
Syntax in an expression (for example, mismatched 
parentheses, quotes, consecutive operators). 


P Phase error. 
The value of a label or EQU name is different 
during pass 2 from its value during pass l. 


Q Questionable. 
Usually, a line is not terminated properly. For 
example, MOV AX,BX,. This 1S a warning error. 

R Relocation. 
Illegal use of relocation in an expression, such as 
abs-rel. Data, code, and COMMON areas are 


relocatable. 


U Undefined symbol. 
A symbol referenced in an expression is not 
defined. For some pseudo-ops, a V error is printed 
for pass l then a U error for pass 2. Compare with 


V error code definition below. 

V Value error. 
On pass 1 a pseudo-op which must have its value 
known on pass 1 (for example, .RADIX, .PAGE, DS, 
IF, IFE) has a value which is undefined. If the 


symbol is defined later in the program, a U error 
will not appear on the pass 2 listing. 


ERROR MESSAGES 

%No END statement 
No END statement: either it 1S missing or it 1S 
not parsed because it is ina false conditional, 


unterminated IRP/IRPC/REPT block, or tecminated 
macro. 


Unterminated conditional 


At least one conditional is unterminated at the end 
of the file. 


Unterminated REPT/IRP/IRPC/MACRO 


At least one block 1S unterminated. 
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Symbol table full 


As MACRO-80 was building the symbol table, the 
memory available was exhausted. The most usual 
cause is a large number of macro blocks which also 
contain statements for many of the statement lines. 
Macro blocks are stored in the - symbol table 
verbatim, including the comments appended to the 
lines inside the macro block. You should check all 
macro blocks in the source program. To exclude 
comments inside macro blocks from the symbol table, 
precede these comments by double semicolons (;;). 
This method should free enough space to assemble 
your program, 


(xx](No] Fatal errors [,xx warnings] 


The number of fatal errors and warning errors 
encountered in the program. The message is listed 
at the end of every assembly on the terminal screen 
and in the listing file. When the message appears, 
the assembler has finished. When the message No 
Fatal Errors appears, the assembly is complete and 
successful. 
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SECTION 6 


CREF-80 CROSS REFERENCE FACILITY 


A cross reference facility processes a specially assembled 
listing file-.to. list the locations of all intermodule 
references and the locations of their definitions. The 
result is a cross reference listing. This cross reference 
listing can be used to aid debugging your program. 


The CREF-80 Cross Reference Facility allows a programmer to 
process the cross reference file generated by MACRO-80. 
This cross reference file contains embedded control 
characters, set up during MACRO-80 assembly. CREF-80 
interprets the control characters and generates a file that 
lists cross references among variables. 


CREP-80 produces a listing, resembling the PRN listing of 
MACRO-80, with two additional features: 


l. Each source statement is numbered with a _ cross 
reference number. 


2. At the end of the listing, variable names appear in 
_ alphabetic order. Each name is followed by the 
line number where the variable is defined (flagged 
with £). followed by the numbers of other lines 
where the variable is referenced. 


The CREF listing file replaces the MACRO-80 PRN List file 
and receives the filename extension .LST instead of .PRN. 
6.1 CREATING A CREF LISTING 

Creating aaer listing involves two steps: (1) creating a 
cross reference file (.CRF), and (2) generating a cross 
reference listing (.LST). The first step occurs in the 
MACRO-80 macro assembler; the second in the CREP-80 Cross 
Reference Facility. 

Creating a Cross Reference File 


To create a cross reference file, set the /C switch in the 
MACRO-80 command line. Por example: 


“M80 =NEIL/C 
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This command line assembles the file NEIL.MAC, generating 
the output files NEIL.REL (object file) and NEIL.CRF (cross 
reference file). 


Generating a Cross Reference Listing 


The cross reference listing is generated by running the .CRF 
file through CREF-80. 


To invoke the cross reference facility, enter: 


CREF 80 


t 


CREP -80 will retarn an asterisk (*) prompt. 

To create the cross reference listing file, enter: 
=filename 

where filename is the name of your .CRF file. For example: 
CREF80 #=NEIL 


will generate a .LST file (NEIL.LST) containing the cross 
reference information. 


This .LST file can be printed or sent to the terminal screen 
using operating system commands. Additionally, CREF-80 
supports the same output device designations as MACRO-80. 
Simply enter the device designation in front of the 
filename. Por example: 


CREFP80 LST: =NEIL 


sends the .L§f listing to the printer only (no disk file is 
generated). 


-« @&-- 


CREFSO TTY: @NEIL 


sends the .LST listing to the CRT only (no disk file is 
generated). 


You will need to give a drive designation if you want the 
(where the .CRF file resides). For example: 


CREFPS8O B: =A: NEIL 


saves NEIL.LST on drive B. 
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When finished, CREF-80 prompts with an asterisk. You may 
enter another -=filename, or exit from CREF-80 to the 
Operating system. 


To exit CREF-80, enter: 
CTRL-C 


If you want the .LST file named differently from the default 
(.CRF filename and extension .LST), enter the name in front 
of the equal sign. For example: 


CREF80 NEIL.CRL=NEIL 
or CREF80 NEILCREF=NEIL 


The former command line generates a cross’ reference list 
file named NEIL.CRL; the latter generates a file named 
NEILCREFP.LST. 


Look at the filename extensions to distinguish a_ cross 
reference listing file from the listing file MACRO-80 
normally generates. The listing file MACRO-80 normally 
generates (without the /C switch set in the command line) 
receives the default filename extension .PRN. The cross 
reference listing file generated by CREF-80 receives the 
default filename extension .LST. 


6.2 CREF LISTING CONTROL PSEUDO-OPS 


You may want the option of generating a cross’ reference 

listing for part of a program but not all of it. To control 

the listing or suppressing of cross references, use _ the 

cross reference listing control pseudo-ops, .CREF and 
-XCREF, in the source file for MACRO-80. These two 

pseudo-ops may be entered at any point in the program in the 

OPERATOR field. Like the other listing control pseudo-ops, 
.CREF and .XCREF support no ARGUMENTs. 


Pseudo-op Definition 


. CREF Create cross references. 

.CREF is the default condition. Use .CREF to 
restart the creation of a cross reference file 
after using the  .XCREF pseudo-op. . CREF 
remains in effect until MACRO-80 encounters 
.XCREF. Note, however, that .CREF has _ no 
effect until the /C switch 18S set in the 
MACRO-80 command line. 
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. XCREF Suppress cross references. 

.XCREF turns off the .CREF (default) pseudo-op. 
.XCREF remains in effect until MACRO-80 
encounters .CREF. Use .XCREF to suppress the 
creation of cross references in selected 
portions of the file. Because neither’  .CREF 
nor .XCREP takes effect until the /C switch is 
set in the MACRO-80 command line, there is no 
need to use .XCREF if you want the usual List 
file (one without cross’ references); Simply 
omit /C from the MACRO-80 command line. 


291 


Utility Software Reference Manual Page 7-i 


LIB-80 LIBRARY MANAGER 


WARNING 


Read this chapter carefully 
and make a back-up copy of 
your libraries before uSing 
LIB-80. LIB-80 1S very 
powerful and thus can be very 
destructive. It 1S easy to 
destroy a library with LIB-80. 


LIB-80 18 designed as a runtime library manager for CP/M 
versions of Microsoft FORTRAN-80 and COBOL-80. LIB-80 may 
also be used to create your own library of assembly language 
subroutines. 


LIB-80 creates runtime libraries from assembly language 
programs that are subroutines to COBOL, FORTRAN, and other 
assembly language programs. The programs collected by 
LIB-80 may be special modules created by the programmer or 
modules from an existing library (FORLIB, for example). 
With LIB-80, you can build specialized runtime libraries for 
whatever execution requirements you design. 


The value of building a library is that all the routines 
needed to execute a program can be linked with it into an 
executable object (COM) file by entering the library name 
followed by /S in a LINK-80 command line. For example: 


L80 MAIN,NEWLIB/S,NEIL/N/G 


This is much more convenient than entering the necessary 
Subroutines individually, eSpecially if there are many 
modules. With a library file you can be sure all th» 
necessary modules will be linked into the COM file, plus 
there is no danger of running out of space on the LINK-80 
command line. Additionally, the library makes this special 
collection of subroutines avallable for easy linking into 
any program. 
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7.1 SAMPLE LIB-80 SESSION 


The two most common uses you will have for LIB-80 are 
building a library and listing a library. The following 
Sample sessions illustrate the basic commands for these two 
uses. 


BUILDING A LIBRARY: 


A>LIB 
*TRANLIB=SIN,COS,TAN,ATAN, ACOG 
* EXP 

#/E 

A> 


In this sample session, LIB invokes LIB-80, which 
returns an asterisk (*) prompt. TRANLIB 1s the 
name of the library being created. 
SIN,COS,TAN,ATAN,ACOG are filenames to be 
concatenated into TRANLIB. EXP is another filename 
to be concatenated into TRANLIB. (EXP could be 
listed on the previous command line; this example 
shows files entered singly and multiply.) /E causes 
LIB-80 to rename TRANLIB.LIB to TRANLIB.REL then to 
exit to CP/M. 


LISTING A LIBRARY: 
A>LIB 


*TRANLIB.LIB/U 
*TRANLIB.LIB/L 


(List of symbols in TRANLIB.LIB) 


*CTRL-C 
A> 
In this sample session, LIB lavokes LIB-8Cc. 


TRANLIB.LIB/U tells LIB-80 to search TRANLIB.LIB 
for any intermodule references that would not be 
defined during a_ single pass through the library 
(that is, any “backward" referencing symbols). 
TRANLIB.LIB/L directs LIB-80 to list the modules in 
TRANLIB.LIB and the symbol definitions the modules 
contain. CTRL-C exits to CP/M without destroying 
any files. 
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WARNING 


/E will destroy your current library if 
there is no new library under construction. 
This is a special danger to your FORTRAN 
runtime library FORLIB.REL. IF YOU ARE 
ONLY LISTING THE LIBRARY AND NOT REVISING 
IT, EXIT LIB-80 USING CTRL-C. 


7.2 LIB-80 COMMANDS 
Invoking LIB-80 
To invoke LIB-80, enter: 
LIB 
LIB-80 will return an asterisk (*) prompt, indicating ready 
to accept commands. Each command in LIB-80 adds modules to 


the library under construction. 


Commands to LIB-80 consist of an optional Destination field, 
a Source field, and an optional Switch field. 


The format of a LIB-80 command is: 

Destination=Source/Switch 
Each field is described below. The general format for each 
field is shown in parentheses after the field name. 
Destination field (filename=) 


This field is optional. The equal sign is required if any 
entry is made in this field. 


Enter in this field the filename (and extension, if you 
choose) for the library file you want to create. 


If this field is omitted, LIB-80 defaults to the filename 
PORLIB. The default filename extension 1s .REL. 
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WARNING 


Do not confuse this default 
filename FORLIB.LIB with 
FORLIB.REL, the runtime library 
supplied with FORTRAN-80. These 
two libraries will not be the 
same unless you command  LIB-80 
to copy all the files from the 
FORTRAN runtime library to the 
new library. FPurthermore, when 
you exit LIB-80, the default 
library name will be given the 
filename extension .REL, which 
means that it replaces the 
FORLIB.REL supplied with 
FORTRAN-80. For this reason, 
unless you want your FORTRAN-80 
runtime library destroyed, we 
recommend emphatically that you 
always specify a Destination 
filename when creating a new 
library. 


Source field (filename<module>) 


Some entry is required in this field. All Source files must 
be REL files. 


Source field entries tell LIB-80 which files or parts of 
files (modules) you want added to the destination library 
file. You have two choices for entries: 


1. Pilename(s) only 
2. Any combination of filename(s) and module name(s) 
The following syntax rules apply: 


l1. If ga command consists of filenames only, the 
entries are separated by commas only. For example: 


PILE], FPILE2,FILE3 
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2. If a command consists of filenames and module 
names, the module names must be enclosed in angle 
brackets (<>). Modules follow the filename where 
they are found. Each filename<module name> 
combination iS separated from other command line 
entries by commas. For example: 


FILEL,FILE2<MODZ> ,FILE3<MODR>,FILE4 


3. I£ more than one module is named from the same 
file, the module names, enclosed in angle brackets 
(<>), must be separated from each other by commas. 
For example: 


FILEL,FILE2<MODZ,MODR>,FILE3 


See Additional Details about Source Modules, option 
2, below. 


Files and modules are typically FORTRAN or COBOL subprograms 
Or main programs, or ALDS assembly language programs that 
contain ENTRY, GLOBAL, or PUBLIC statements. (These 
Statements are called entry points.) LIB-80 recognizes a 
module by itS program name, which may be a filename, or a 
name given by either the .TITLE or the NAME pseudo-op in 
MACRO-80. All Source files must be REL files. 


LIB-80 concatenates REL files and modules of REL files; 
that is, LIB-80 strings one file or module after the other. 
So there is no difference between the command under syntax 
rule 2 above and 


FILE] 
FILE2<MODZ> 
FILE3<MODR> 
FILE4 


Also, because the library file is built by concatenation, it 
is important to order the modules so that all intermodule 
references are "forward." That is, the module containing the 
external reference should physically appear ahead of the 
module containing the ENTRY point (the definition). 
Otherwise, when you direct LINK-80 to search the library, 
LINK-80 may not satisfy all references on a _ single pass 
through the library. 
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Additional Details about Source Modules 


eee eee ee eee eee 


To extract modules from previous libraries and other REL 
Files, LIB-80 uses a powerful syntax to specify ranges of 
modules within a REL file. 


These ranges may be from one module to the entire file (in 
which case no module specification is given). 


The basic principle of specifying a range of modules is, 
generally, that any module named in a command will be 
included. (There iS an exception, when Specifying a 
relative offset range--item 6, below.) 

The options for specifying modules are: 


lL. One module only 
Enter the module name. For example: 


FILE1L<MODZ> 
includes only module MODZ of FILE1. 
2. Several discontiguous modules from one file 
Enter the module names Separated by conmras. 


For example: 


FILE1<MODZ ,MODR , MODK > 


includes modules MODZ, MODR, and MODK. Not? 
that these modules may be given in any order 
you need them concantenated for a proper 


one-pass search, regardless of their order in 
the original file. 


3. From the first module through the named modi! 


‘ 


Enter two periods (..) and the name wi the last 
module to be included. For exauvle: 


FILE1L<..MODK> 


includes all modules from the first module in 
FILE]L through module MODK. 
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4. From a named module through the last module 
Enter the name of the module that starts’ the 
range followed by two periods (..). For 
example: 


FPILE1<MODR..> 


includes all the modules, beginning with module 
MODR, through the last module in FILEl1. 


5. From one named module through another named module 
Enter the name of the module that starts’ the 
range followed by two periods (..) followed by 
the name of the module that ends the _ range. 
For example: 


FPILE1<MODZ..MODK> 


includes all modules, beginning with module 
MODZ, through module MODK. 


6. Relative offset range 

Enter the module name followed by a + oor - and 
the number of modules to be included. + means 
following the named module. - means' preceding 
the named module. The named module is not 
included in the library. The offset number 
must be an integer in the range 1 to 255. For 
example: 


PILE1<MOD2Z+2> 


includes the two modules immediately following 
module MODZ. While 


PI LE1<MODK-3> 


includes the three modules immediately 
preceding module MODK. 


Additionally, ranges and offsets may be used 
together. For example: 


FILE1<MODR+1..MODK-1> 


includes all the modules between module MOOR 
and module MODK (but neither MODR nor MODK is 
included). 
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7. All modules ina file 


Enter the filename only. 


PILE 


includes the entire file (all 
FILE1]). 


Switch field (/switch) 


An entry in the Switch field commands’ LIB-80 
functions. A Switch field entry is a letter 


additional 


preceded by a slash mark (/). 


WARNING 


/E will destroy your current 
library if there is no new 
library under construction. 
This is a special danger to 
your FORTRAN runtime library 
FORLIB.REL because FORLIB is 
the default filename used if 
you do not specify a 
destination filename. 
Therefore, unless you want to 
delete your complete FORTRAN 
runtime library, give LIB-80 a 
destination filename for the 
new library. If you are only 
listing the library and not 
revising it, exit LIB-80 using 
CTRL-C. 
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Switch Action 


JE Exit to CP/M. I you are not creating a new 


library or revising an existing library, use 
CTRL-C instead of /E. 


The library under construction (.LIB) is renamed 
to .REL and any previous copy of the library file 
is deleted. This is why /E is so dangerous and 
not to be used unless you are constructing a new 
library. Again, we recommend emphatically that 
you always enter aeéefilename in the Destination 
field of the LIB-80 command line. 


/R Rename the library currently being built (.LIB) to 
~REL. The same warnings and cautions apply to /R 
as apply to /E. 
The previous copy of the library is deleted. use 
/R only if you are building a new library. R 


performs the same functions as /E, but does aot 
exit to CP/M on completion. Use /R instead of JE 
when you want to exit the current library but want 
to continue using LIB-80 for other library 


managing. 

/L List the modules in the file specified and the 
symbo 1 definitions the modules_ contain. The 
contents of a file are listed in cross’ reference 
format. 

Listings are currently always sent to the 
terminal; use CTRL-P before running LIB-80 to 


send the listing to the printer. 


/U Use /U to list the symbols which could be 
undefined in a single pass through a library. If 
a symbol ina library module refers “backward” (to 
a preceding module), /U will list that symbol. 


/C Use /C to clear commands from LIB-80 without 
exiting the LIB-80 program. The library under 
construction is deleted and the LIB-80 sessicn 
starts over. The asterisk (*) prompt will appear. 


Use /C if you specified the wrong module(s) or the 
wrong order and want to start over with new LIB-80 
commands. 
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/O Use /O to set typeout mode to Octal radix. /O 
will be given together with the /L switch, which 
commands LIB-80 to list. REMEMBER: When switches 
are given together, a slash must precede each 
Switch. For example: 


NEWLIB/L/O 


/4H Use /H to set typeout mode to Hexadecimal radix. 
Hexadecimal is the default radix. 
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APPENDIX A 


ASCII CHARACTER CODES 


Dec Hex CHR Dec Hex CHR Dec Hex CHR 
000 00H NUL 043 2B H + 086 56H V 
001 01H SOH 044 2CH 1 087 57H W 
002 02H STX 045 2DH - 088 58H X 
003 03H ETX 046 2 EH . 089 59H Y 
004 04H EOT 047 2FH / 090 SAH Z 
005 OSH ENQ 048 30H 0 091 SBH f 
006 06H ACK 049 31H l 092 SCH \ 
007 07H BEL 050 32H 2 093 SDH ) 
008 08H BS 051 33H 3 094 SEH ° 
009 09H HT 052 34H 4 095 SFH _ 
010 OAH LF 053 35H 5 096 60H ' 
011 OBH VT 054 36H 6 097 61H a 
012 OCH FP 055 37H 7 098 62H b 
013 ODH CR 056 38H 8 099 63H Cc 
014 OER SO 057 39H 9 100 64H d 
015 OFH SI 058 3 AH ‘ 101 65H e 
016 108 DLE 059 3BH ; 102 66H f 
017 lla Dcl 060 3CH < 103 67H g 
018 12H DC2 061 3DH = 104 68H h 
019 138 DC3 062 3 EH > 105 69H 1 
020 14H DC4 063 3PR ? 106 6AH j 
021 158 NAK 064 40H @ 107 6BH k 
022 168 SYN 065 41H A 108 6CH l 
023 17H ETB 066 42H B 109 60H m 
024 18H CAN 067 43H Cc 110 6EH n 
025 19H EM 068 44H 9) lll 6 FH fe) 
026 lAH SUB 069 45H E 112 70H p 
027 1BH ESCAPE 070 46H F 113 71H q 
028 1CH FS 071 47H G 114 72H r 
029 108 GS 072 48H H 115 73H Ss 
030 LEH RS 073 49H I 116 7458 t 
031 1 PH US 074 4AH J 117 75H u 
032 208 SPACE 075 4BH K 118 76H V 
033 218 ! 076 4CH L 119 77H Ww 
034 228 . 077 4DH M 120 78H x 
035 23H € 078 4EH N 121 79H y 
036 24H $ 079 4FH @) 122 7AH z 
037 258 % 080 SOH P 123 7BH ( 
038 26H & 081 Sl1H Q 124 7CH | 
039 278 ' 082 52H R 125 70H ) 
040 288 ( 083 53H S 126 7EH ~ 
041 298 ) 084 54H T 127 7 FH DEL 
042 2AH & 085 S5H U 


Decedecimal, Hexzhexadecimal (H), CHR=character. 
LF=Line Feed, FF=Form Feed, CR=Carriage Return, DEL#=Rubout 
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Notation: 


APPENDIX B 


Table of MACRO-80 Pseudo-ops 


* means 280 pseudo-op 
no stars means 8080 pseudo-op 


SINGLE-FUNCTION PSEUDO-OPS 


Instruction Set Selection 


.280 
.8080 


Data Definition and Symbol Definition 


<name> ASET <exp> 

BYTE EXT <symbol> 

BYTE EXTRN <symbol> 

BYTE EXTERNAL <symbol> 

OB <exp>[(,<exp>...] 

DB <string>(<string>...] 

DC <string> 

ODB <exp>[,<exp>...) 

DEFB <exp>[,<exp>...] 
<name> DEFL <exp> 

DEPM <string>(,<string>...] 
DEFS <exp>[,<val>] 

DEPW <exp>[(,<exp>...] 

DS <exp>[(,<val>) 

DW <exp>[,<exp>...] 

ENTRY <name>[(,<name>...] 
<name> EQU <exp> 

EXT <name>(,<name>...) 
EXTRN <name>[,<name>...] 
EXTERNAL <name>(,<name>...) 
GLOBAL <name>(,<name>...) 
PUBLIC <name>[(,<name>...]) 
<name> SET <exp> (not in .280 mode) 
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PC Mode Pseudo-ops 


ASEG 

CSEG 

DSEG 

COMMON /<block name>/ 
ORG <exp> 

»~PHASE <exp>/ .DEPHASE 


File Related Pseudo-ops 


.COMMENT <delim><text><delim> 
END {<exp>.) 

INCLUDE <f1lename> 

SINCLUDE <filename> 

MACLIB <filename> 

~RADIX <exp> 


»~REQUEST <filename>[(,<filename>... ] 


Listing Pseudo-ops 
Format Control Pseudo-ops 


* *EJECT ([<exp>) (one star is part of 


PAGE <exp> 
SUBTTL <text> 
TITLE <text> 
STITLE 


General Listing Control Pseudo-ops 


. LIST 
-XLIST 
~PRINTX <delim><text><delim> 


Conditional Listing Control Pseudo-ops 


- SF COND 
. LFCOND 
. TF COND 


Expansion Listing Control Pseudo-ops 


. LALL 
. SALL 
-XALL 


Cross-Reference Listing Control Pseudo-ops 


.XCREF 
. CREF 
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MACRO FACILITY PSEUDO-OPS 


Macro Pseudo-ops 


<name> MACRO <parameter>(,<parameter>...] 


ENDM 
EXITM 


LOCAL <parameter>[,<parameter>...] 


Repeat Pseudo-ops 


Conditional Assembly Facility 


REPT <exp> 


IRP <dummy>,<parameters in angle brackets> 


IRPC <dummy>,string 


COND <exp> 

ELSE 

ENDC 

ENDIF 

IF <exp> 

IFB <arg> 

IFDEF <symbol> 
IFDIF <argl>,<arg2> 
IFE <exp> 

IFF <exp> 

IFION <argl>,<arg2> 
IFNB <arg> 

IFNDEF <symbol> 

IFT <exp> 

IFl 

IF 2 
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The opcodes are listed alphabetically by 


For 
1. 


c.l 


details, 


Z80 OPCODES 


Opcode 


ADC 
ADC 
ADD 
AND 
BIT 


A 
HL,rp 


CALL addr 


CALL 
CCF 


cond ,addr 


addr 
cond ,addr 


cond ,addr 
A, (addr) 


APPENDIX C 


Table of Opcodes 


instruction set. 


refer to the reference books listed in Section 


Punction 


Add with Carry to Accumulator 

Add Register Pair with Carry to HL 

Add 

Logical AND 

Test Bit 

Call Subroutine 

Call Conditional 

Complement Carry Flag 

Compare 

Compare, Decrement 

Compare, Decrement, Repeat 

Compare, Increment 

Compare, Increment, Repeat 

Complement Accumulator 

Decimal Adjust Accumulator 

Decrement 

Disable Interrupts 

Decrement and Jump if Not Zero 

Enable Interrupts 

Exchange 

Exchange Register Pairs and Alternatives 
Halt 

Set Interrupt Mode 

Input 

Increment 

Input, Decrement 

Input, Decrement, Repeat 

Input, Increment 
Input, Increment, 
Jump 

Jump Conditional 
Jump Relative 
Jump Relative Conditional 
Load Accumulator Direct 


Repeat 
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PE SESssSs 
oO 0000 


c* 
Oo 


GCobSbSESESESE 


A,(BC) or 


A,1 
A,R 


HL,(addr) 


data 


xy , (addr) 
reg, (HL) 
reg, (xy+disp) 
rp, (addr) 

SP ,HL 
SP,xy 
dst,scr 
(addr) ,A 
(BC) or 


I,A 
R,A 


(addr) ,HL 
(HL) ,data 
(xy+disp),data 
(addr) ,xy 
(HL) ,reg 
(xy+disp),reg 
(addr),rp 


cond 


(DE) 


(DE),A 


Load 
Load 
Load 
Load 
Load 
Load 
Load 
Load 
Load 
Move 
Move 
Move 


Store 
Store 
Store 
Store 
Store 
Store 
Store 
Store 
Store 
Store 
Store 
Load, 
Load, 
Load, 
Load, 
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Accumulator Secondary 
Accumulator from Interrupt Vector Register 
Accumulator from Refresh Register 

HL Direct 

Immediate 

Index Register Direct 

Register 

Register Indexed 

Register Pair Direct 

HL to Stack Pointer 

Index Register to Stack Pointer 
Register-to-Register 

Accumulator Direct 

Accumulator Secondary 

Accumulator to Interrupt Vector Register 
Accumulator to Refresh Register 

HL Direct 

Immediate to Memory 

Immediate to Memory Indexed 

Index Register Direct 

Register 

Register Indexed 

Register Pair Direct 

Decrement 
Decrement, 
Increment 
Increment, 


Repeat 


Repeat 


Negate (Two's Complement) Accumulator 
No Operation 

Logical OR 

Output 


Output, 
Output, 
Output, 
Output, 


Decrement 
Decrement, 
Increment 
Increment, 


Repeat 


Repeat 


Pop from Stack 


Push 


to Stack 


Reset Bit 


Return 
Return 
Return 
Return 
Rotate 
Rotate 
Rotate 
Rotate 
Rotate 
Rotate 
Rotate 
Rotate 


from Subroutine 

Conditional 

from Interrupt 

from Non-Maskable Interrupt 
Left Through Carry 

Accumulator Left Through Carry 
Left Circular 

Accumulator Left Circular 
Accumulator and Memory Left Decimal 
Right Through Carry 

Accumulator Right Through Carry 
Right Circular 
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C.2 8080 OPCODES 


Opcode 


ADC ,ACI 
ADD ,ADI 
ANA, ANI 
CALL 

CC 


Rotate Accumulator Right Circular 
Rotate Accumulator and Memory Right Decimal 
Restart 

Set Bit 

Subtract with Carry (Borrow) 

Set Carry Flag 

Shift Left Arithmetic 

Shift Right Arithmetic 

Shift Right Logical 

Subtract 

Logical Exclusive OR 


Function 


Add with Carry 

Add 

Logical AND 

Call Subroutine 

Call on Carry 

Call on Minus 
Complement Accumulator 
Complement Carry 
Compare 
Call on 
Call on 
Call on 
Call on 
Call on 
Call on Zero 
Decimal Adjust 
16-bit Add 
Decrement 

16-bit Decrement 
Disable Interrupts 
Enable Interrupts 
Halt 

Input 

Increment 
Increment 16 bits 
Jump on Carry 

Jump on Minus 
Jump 
Jump on 
Jump on 
Jump on 
Jump on 
Jump on 


No Carry 
Not Zero 
Positive 
Parity Even 
Parity Odd 


Not Carry 
Not Zero 
Positive 
Parity Even 
Parity Odd 
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JZ 

LDA 
LDAX 

LH LD 
LXI 

MOV 

MV I 

NOP 
ORA,ORI 
OUT 
PCHL 
POP 
PUSH 
RAL 

RAR 

RC 

RET 

RLC 

RM 

RNC 

RNZ 

RP 

RPE 

RPO 

RRC 

RST 

PZ 
SBB,SBI 
SHLD 
SPHL 
STA 

S TAX 
STC 
SUB,SUI 
XCHG 
XRA,XRI 
XTHL 


Jump on Zero 

Load Accumulator 

Load Accumulator Indirect 
Load HL Direct 

Load 16 bits 

Move 

Move Immediate 

No Operation 

Logical OR 

Output 

HL to Program Counter 

Pop from Stack 

Push to Stack 

Rotate with Carry Left 
Rotate with Carry Right 
Return on Carry 

Return from Subroutine 
Rotate Left 

Return on Minus 

Return on No Carry 

Return on Not Zero 

Return on Positive 

Return on Parity Even 
Return on Parity Odd 
Rotate Right 

Restart 

Return on Zero 

Subtract with Borrow 
Store HL Direct 

HL to Stack Pointer 

Store Accumulator 

Store Accumulator Indirect 
Set Carry 

Subtract 

Exchange D and E, H and L 
Logical Exclusive OR 
Exchange Top of Stack, HL 
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Numbers as operands 
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Operator Order of Precedence . 
Operators 


ORG 


PAGE 


Pseudo-ops 


SEJECT . 
SINCLUDE 
STITLE 


ASEG 
ASET 


Block Listing 


BYTE 
BYTE 
BYTE 


EXT . . 
EXTERNAL 
EXTRN 


COMMON 


COND 


Conditional . 
Conditional Listing 


CSEG 


EXITM 


Definition 


Expansion Listing 


EXT 


EXTERNAL . . 
EXTRN 


Format Control 
General Listing 
GLOBAL . . 
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IFl 
IF 2 
[FB 
IFDEF 
IFOIF 
IFE 
[FF 
IFIDN 
IFNB 
IFNDEF 
[FT  , 


INCLUDE 


[RP . 
IRPC. . 
Listing 
LOCAL 
MACLIB 
MACRO 


Macro Listing 


NAME 
ORG 
PAGE 

PC Mode 
PUBLIC 
REPT 
SET 
SUBTTL 


Symbol Definition 


TITLE 
. PHASE 


».DEPHASE 
. COMMENT 


».RADIX 


.REQUEST 


* EJECT 

.LIST 

.XLIST 

.PRINTX 

. SFCOND 

. LFCOND 

. TFCOND 

-XALL 

. LALL 

. SALL 

. CREF 

. XCREF 

. CREF 

.XCREF 
PUBLIC . 


PUBLIC Symbols 
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LIST . . 
XLIST . 
PRINTX .. 
SFCOND .. 
LF COND 
TFCOND .. 
XALL ... 
LALL .. 
SALL oe 
.CREF .. 
.XCREF.., 
/O - MACRO-80 
/H - MACRO-80 
/R - MACRO-80 
/%L - MACRO-80 
/% - MACRO-80 
/I - MACRO-80 
/P - MACRO-80 
/M - MACRO-80 
/X = MACRO-80 
/E - LIB-80 
/R - LIB-80 
/L - LIB-80 
/U LIB-80 
/C LIB-80 
/O - LIB-80 
/H - LIB-80 
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